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MORE THAN FIFTY PROGRAMS 

By MICHAEL HOWARD 

So you want some more programs to key into your Sega? Well, this book 
has over Fifty for you to tap out covering everything from games to 
education, machine code and basic, short and long, (all programs will 
run on a 16k or 32k cartridge). Pages of programs, each one disected 
and explanations of how and why it works! 



INTRODUCTION 



Dear Readers 

As this is the last issue in the current years subscription I would 
like to take the opportunity to explain the obvious advantages in re- 
subscribing and receiving another six bi-monthly issues of your 
favourite micro magazine. 

The Sega computer magazine aims to keep all Sega owners com- 
pletely up to date with all developments concerning hardware and 
software. From time to time we will make special offers on Sega pro- 
ducts through the User Club at considerable savings as a members 
only privilege. 

We also provide you with the means to communicate with our ex- 
perts when programming problems crop up in the form of our letters 
to the editor spot. Most important of all we provide you with pro- 
gram listings and information to ensure that your unit is used in all 
aspects of computing rather than being just another games machine. 

There is of course the small matter of putting our printer and 
publisher out of a job and his wife, thirteen kids and two computers 
will be starving and destitute within a month and it will be back to 
the straight jackets and tranquilisers for Philip Bachler and Michael 
Howard. But don't let this colour your judgement, I am already con- 
fident the issue is a forgone conclusion and the re-subscriptions will 
come flooding in. Thank you for your support and see you next year. 




Steve Kenyon 
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LOCAL SEGA USERS CONTACTS 



AUCKLAND CENTRAL SEGA USERS CLUB 

C/o 287 Broadway Furniture 

Newmarket 

Contact: George Shaw 

Ph. 547-543 

BOP USERS CLUB 

Sega 102B Hinewa Road 
TAURANGA 
Contact: Ian Johnson 
Ph. 67-349 Tauranga 

CHRISTCHURCH USERS CLUB 

Contact Graham Rudman 
29 Primrose Street 
CHRISTCHURCH 5 



GISBORNE AREA USER'S CLUB 

Trevor Gardiner 
Ph. 63-068 HM 
or 87-175 WK 

HAMILTON SEGA USERS CLUB 

P.O. Box 1548 Hamilton 

Contact Leslie Wong 

Ph. 384-892 Ext 66 

Meetings fomightly in room KG09 

University of Waikato 



NAPIER SEGA USERS CLUB 

Sec E.P- Lins 
41 Higgins Street 
NAPIER 



PUKEKOHE SEGA USERS CLUB 

C/o 4 Roose Avenue 
Pukekohe 
Contact: Selwyn 
Ph. Pukekohe 86-583 



ROTORUA SEGA USERS CLUB 

C/- 61 Devon Street 
ROTORUA 



TOKOROA SEGA USERS GROUP 

C ' o 1 Pio Pio Place 

TOKOROA 

Contact Geoff Phone Number 67-105 

Tokoroa 

SOUTH CANTERBURY USERS CLUB 

P.O. Box 73 Timaru New Zealand 
President: Geoff McCayghan 
Secretary: Lloyd Van Der Krogt 
Contact Phs: 60-756, 61-412 
TIMARU 



SOUTH COROMANDEL USERS CLUB 

P.O. Box 183 

WHANGAMATA 

Contact: Sid 

Ph. 58-775 Whangamata 

SOUTH TARANAKI MICROCOMPUTER 
SOCIETY 

DM Beale 
7A Clive Street 
HAWERA 



WELLINGTON USERS CLUB 

P.O. Box 187 

Postal Central 

Wellington 

Contact: Shaun Parsons 

Ph 897-095. hm. 727-666 



The above are contact names and addresses for 
Sega Users Clubs. If you wish to have your club 
advertised write to Sega Users Club P.O. Box 
2353, Auckland. 

If you have set up a local area user's club and you 
would like us to publish the details concerning 
your club please send them to us and we will 
publish the information for no charge. 



READERS LETTERS 



DEAR EDITOR 

Is there any way to put anything on the 
two borders at the top and bottom of 
the graphic screen on the Sega. If so, 
how hard is this? 

A. Rowden 

EDITOR'S REPLY 

Unfortunately, it is not possible to put 
anything on these borders. You can on- 
ly change their colour. There is no 
space in the VRAM for putting graphics 
in this area of the screen. If you have 
a look in the arcade games they do not 
use this area of the screen either. 

DEAR EDITOR 

I recently came across your magazine, 
'Sega Computer 1 . 1 was very excited to 
find such a high quality magazine for 
my computer, but then to my amaze- 
ment I found out it was from New 
Zealand, I was instantly jealous! Yousee 
we over the Tasman don't have 
anything comparable to your magazine 
for the Sega Computer, because of this 
fact 1 decidd to write to you and con- 
gratulate you on your magazine. I was 
also wondering whether any of your 
readers would like to exchange pro- 
grams with me, I am sixteen years and 
am currently completing my final year 
at high school. 

I have sent one of my programs with 
this letter, it is of great help to me when 
I am required to sketch graphs 
(especially when answers are not given 
in some text books). 

Tim Werbicky 
45 The Righi 
Ivanhoe 3079 
Victoria, AUST. 

EDITOR'S REPLY 

This program is on page 30 

DEAR EDITOR 

I've had my sega for one year and am 
very pleased with the software that has 
been produced for it, but I feel disap- 
pointed that a flight simulator hasn't 
come out for it. Could you tell me if a 
flight simulator will be made for the 
sega. 

Michael Harris 

P.S. Great magazine, keep up the good 
work. 

2 



EDITORS REPLY 

Terry Johnson of Munchman Fame is 
working on one and it should be 
available in 3-4 months. 



DEAR EDITOR 

I think a speech synthesiser would be 
just great on the Sega. Do you know 
if there is going to be one released and, 
if so, could you give an approximate 
cost? 

A. Cleland 



EDITOR'S REPLY 

There is an Auckland based company 
who have developed a speech syn- 
thesiser for the Sega. There will be 
more information about this in the next 
magazine. They have also developed a 
parallel interface. Please see article fur- 
ther on in magazine. 



DEAR EDITOR 

Thank you for the last copy of the 
magazine — it was really good. 
However, I seem to be having some 
problems with the machine code pro- 
grammes. I key them all into the com- 
puter and disk drive but they refuse to 
work! Is there something I am doing 
wrong or is there something wrong with 
the programmes themselves? 

F. Woodward 



EDITORS REPLY 

Oh, oops. What we neglected to put at 
the top of the machine code article's is 
that they are designed to work only on 
the memory cartridges. As the disk 
drive ROMS is different from that on the 
cartridge, you cannot get the same 
machine code programmes to work 
(this is why programmes like Mun- 
chman and the Word Procesor that run 
on cartridge will not run on disk drive) . 



which I incorporated in the later ver- 
sion. For inclusion in a later issue of the 
magazine I offer the enclosed print out 
of the lines which need amendment. 
The previous version of the Easter 
Calculation was found to be inaccurate. 



DEAR EDITOR 

Thank you for selecting my programme 
for an award which I am pleased to 
have received. Unfortunately, it ap- 
pears that the version you have publish- 
ed did not include the amendments 

1100 REM EASTER CALCULATION 

1110 X=INTCY/1003-16 

1120 D=l:JF X>25 THEN D=D+]:IF X>50 TH 

EN D=D+1 

1130 C=3 

C=C+X-]NTCCX+D)^3 3-INTCX/4 3 
N=CY+nf10D19:IF N=0 THEN N-19 
D=CC + N*193riOD30 
IF N>1J ANDD>2? THEN D=D-1 
IF N<=11ANDD=29 THEN D-28 
DE=D+21 :D=21 :H=3 :G0SUB 1000 
DE=DE + i:lF CDE + 23H0D7O1 THEN 1200 
D<32 THEN M=3:G0T0 1230 
THEN n=4:D=D-31 



1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
4230 
4450 
4460 



D=DE=IF 

IF D>31 

RETURN 

UM1:U=D-2:IF U<=0 THEN U=31 +U :W=n -1 

IF 1=6 THEN 2=1 :D=27 

PRINT "Boxing Day . . " JTABC24-LENC J 



$C2 + m] J J* C 2+1 J 

EDITOR'S REPLY 

Thanks. 



;D+i 



;n$ci23 



KG. SURRIDGE 



PLANET LANDER PROGRAMME DISECTION 



Programme by Andrew Flexman 
Disection by Philip Bachler 



This is a simple but challenging game 
which involves landing a small craft on 
a moving Lander Buggy. 

Line 10: 

This is the title. The computer ignores 
this line as it starts with word REM. 

Line 20-70: 

These lines set up the variables (Note: 
This can all be put on one line to make 
the program easier to key in and list.) 

Variable A: This is the Horizontal coor- 
dinate of your space ship. (X coord.) 
Set to 50 Pixels across the screen from 
the top left hand corner. 

B: This is Vertical coordinate of your 
ship (Y coord) It is set to 10 Pixels down 
the screen. 

Al: This is used with the thurst to give 
the effect of gravity. 

Bl: Used for left and right movement 
to show momentum. 

XI: This is the speed of your buggy. 



Line 80: 

Sends the program to line 550 where 
it continues working on the programme 
until it sees the word RETURN. When 
the computer spots this word it jumps 
back to line 90. 

Line 550-700: 

These are the PATTERN statements 
which define the sprites (EG your ship, 
the Lander Buggy etc.) This informa- 
tion is put at the end of the program, 
if it is placed at the front it slows the pro- 
gram down. 

Line 710: 

RETURN so the computer jumps to line 
90. 

Line 90: 

Switches the computer into graphics 
mode. 

Line 100: 

Colour 1 is black so this puts black 
writing on a black background giving a 
total black screen. 

Line 110: 

Clears the screen of any information. 



Line 120: 

This simply tells the Variable I to be 
stepped between 166 and 191. 

Line 130: 

The famous COLOUR statement. A 
Line of Random colour is draw on 
Lines 166 to 191 from Pixel (on the 
very left of the screen) to Pixel 255 (on 
the very right of the screen). 

Line 140: 

Increases I by 1 and jumps the com- 
puter up to line 120 if I is not greater 
than 191. 

Line 150: 

This draws a block of colour six Pixels 
wide right the way across the screen. 
This is erased by the next 3 lines to give 
the top of the background. 

Line 160: 

Beginning of another FOR-NEXT loop. 
Sets I to zero and every time the com- 
puter sees the words NEXT I, I is in- 
creased by one and the computer 
jumps to Line 170. 

Line 170-180: 

These 2 lines create the surface of the 
planet on the "horizon." The BLINE 
statement removes a small randomly 
sized vertical section of the block drawn 
on Line 150. This is done 256 times 
right the way across the screen. 

Line 190: 

MAG 1 is 16 x 16 Pixel sprites made up 
of four MAG0 8x8 sprites. 

Line 200-2200: 

Makes stars! 50 Randomly coloured 
stars are placed in random places on the 
screen using PSET. RND(l) '256 gives 
a Random number between and 255. 
This is the X coordinate of th star. 
RND(1)*192 gives a random number 
between and 191. (The Y coor- 
dinate.) RND(1)*16 gives a random 
number between and 15. (This is the 
colour!) Easy when you know how isn't 
it? 

Line 230: 

Ear muff time as this line makes a noise. 
SOUND (Channel) 4 is one of the white 
noise generators your computer has 
built into it and 3 gives a sound like a 
rocket ship. 15 is the volume which is 
a scale of 0-15. (15 is the loudest.) 



Line 240: 

This sets X (the X coord of the lander 
buggy) to 120. 

Line 250: 

Generates a random direction and 
speed for your shin. 

Line 260-270: 

This checks whether the Lander buggy 
is too far to the left or the right. If it is 
the computer bounces the ship in the 
opposite direction. 

280: 

This is the beginning of the main loop 
that moves the ship in a random direc- 
tion 20 times and then changes the 
direction and the speed of the lander. 

Line 290: 

This tests the joystick. It first checks if 
STICK(l) =3 If the joystick is pressed 
to the right. If it is the computer adds 
.3 to the variable Al (This is the 
momentum of the ship.) thus increas- 
ing the ships speed to the right. The 
tone fo the white noise is then altered 
by changing the pitch of SOUND (chan- 
nel) 3. The computer is then sent to line 
310 as if the joystick is pushed right 
(Which it is for the computer to be obey- 
ing this command.) it can't be pushed 
left so there is no need to Perform line 
310. This makes the program move 
faster. 

Line 300: 

If the STICK(l) = 7 then joystick one is 
pressed to the left so the speed to the 
left is increased and the tone of the 
white noise changed. 

Line 310: 

You maybe wondering why we have 2 
variables for the speed and direction of 
your ship. A is the horizontal position 
of your ship. Al is the amount that your 
ship is moved left or right every time the 
lander buggy is moved. This means that 
once you start moving in a direction you 
continue to move in that direction until 
the joystick is held in the opposite direc- 
tion for long enough to change the sign 
of Al (If the ship is moving to the left 
Al is negative and if it is going to the 
right Al is positive.) 



Line 320-330: 

These two lines generate false gravity 
(Variable SPEED) and vertical momen- 
tum for your ship (This means that if 
you don't push the fire button the ship 
speeds down the screen and smashes 
into the ground!) 

Line 340: 

This puts sprite number (your ship) 
at coordinates (A,B) with a colour of 6 
(dark red.) 

Line 350: 

This generates the X coordinate of the 
Lander Buggy. 

Line 360: 

Puts the Lander Buggy (sprite 1) on the 
screen at coord (X,155) This means 
that it moves back and forth along line 
155 down the screen. 

Line 370: 

The STRlG(l) statement scans the 
joystick 1 fire bottons. If either are press- 
ed the momentum (Bl) of your ship is 
lowered, the pitch of sound is changed 
and the shape of Sprite (Your ship) 
is changed to make it look as though 
the rockets are fired. 

Line 380: 

To stop your ship from going of the 
screen this line checks its position and 
if any one of the coordinates are too big 
or too small the computer GOTO's to 
line 410. 



Line 410: 

Tests to see if your craft is low enough 
to touch the landing pad. If it is the 
computer continues at line 460. 

Line 420: 

Checks to stop you going off the top of 
the screen and changes the direction of 
your momentum ie you bounce off the 
top of the screen! 

Lines 430-440: 

Stops you going off the left or the right 
of the screen. 

Line 450: 

Jumps back to line 390. 

Line 390: 

NEXT I restarts the main loop on line 
280. 

Line 400: 

After the Lander Buggy has moved in 
one direction 20 times the computer will 
get to this line. This sends the computer 
back to line 250 to generate a new ran- 
dom direction and speed for the LB. 

Line 460: 

If you are low enough on the screen 
(below 146) the computer tests to see 
if you are on the landing pad that is A 
and B are very close. If you have land- 
ed the computer continues to line 720. 



Line 720-780: 

You landed successfully (Whistles and 
Cheers!) 

Lines 790 810: 

This makes the flashing top and bottom 
of the screen and causes a dalay. 

Line 820: 

This increases the speed of the game 
making it harder and harder as you go. 

Line 830: 

Jumps back to the beginning of the 
game. 

Line 470: 

Bad news. You have not landed but 
you have crashed instead so there is a 
change in the noise. 

Line 480: 

This puts an explosion on the screen 
where you crashed your ship. Note that 
the coordinates have been left out. 

Line 490-530: 

These lines create the circles and sound 
that appear on the screen when you 
crash. The variable 1 is decreased from 
500 to 110 giving the sound effect. 

Line 540: 

Jumps to the dead routine at line 840 
Line 840: 

This is it. The game is over (No tears 
please) these last lines just restart the 
program when you press the fire 
button. 



10 REM Planet Lander 

20 A -50 

30 B=10 

40 K=0 

50 A 1=0 

60 B1==0 

70 X1=0 

80 BOSUB 550 

90 SCREEN 2,2 

100 COLOR 1, 1 

110 CLS 

120 FOR I«166 TO 191 

1 30 COLOR , RND U > ♦14+2, '■ , J ) - ( 255 , I ) , RND ( 1 ) * 1 6 

140 NEXT I 

150 LINE (0,164) -(255, 170) , 1 , BF 

160 FOR 1=1 TO 255 

1 70 BL INE (1,1 70 > - ( 1 , 1 70-RND ( 1 ) *6 J 

180 NEXT I 

190 MAG 1 

200 FOR 1=1 TO 50 

2 1 PSET ( RND ( 1 ) *256 , RND ( 1 ) * 1 92 ) , RND ( 1 ) *16 

220 NEXT I 

230 SOOND 4,3, 10 

240 X=120 

250 X 1 =RND ( 1 ) *3+RND < 1 ) *-3 

260 IF X<50 THEN Xl=4 

270 IF X>200 THEN XI =-4 

280 FOR I = 1 TO 20 



290 IF ST I CK ( 1 ) =3 THEN A 1 ■ A 1 •+• . 3+SPEED : BOUND 3 , 500 : GOTO 3 1 

300 IF BTI CK ( 1 ) =7 THEN A 1 *A 1 - - 3- SPEED : SOUND 3 , 40< I 

310 A-A+Al 

320 B1=B1+. 2+ (SPEED/5) 

330 B=B+B1 

340 SPR I TE , ( A , B ) , , 6 

350 X=X+X1+SPEED 

360 SPRITE 1, (X, 155) ,8, 14 

370 IF STRIG<1>=1 THEN Bl-Bl-1 -SPEEDS SOUND 3, 900: SPRITE 0,,4 

380 IF A<15 OR A>230 OR B<10 OR B>146 THEN 410 

390 NEXT I 

400 GOTO 250 

410 IF B>146 THEN 460 

420 IF B<10 THEN B=10:B1=-B1 

430 IF A>230 THEN A*»230: A1=-A1 

440 IF A-. 15 THEN A=15:A1=-A1 

450 GOTO 390 

460 IF A<X+2 AND A>X-2 THEN 720 

470 SOUND 4,3, 15 

480 SPRITE 0, ,12-9 

490 FOR 1=500 TO 110 STEP- 10 

500 K-K+4 

510 CIRCLE (A+8,B+20) ,K,RND (1)*16, , .5,0 

520 SOUND 3, I 

530 NEXT I 

540 GOTO 840 

550 PATTERN S#0, "070F 1F3E7D1D1E0F " 

560 PATTERN S# 1 , " 0F07050A 1 0206050 " 

570 PATTERN S#2, "E0F0F87CBEB878F0" 

580 PATTERN S#3, "F0E0A0500804060A" 

590 PATTERN S#4 , "070F 1F3E7D1 D1E0F " 

600 PATTERN S#5, "0F07050A 15226 150" 

610 PATTERN S#6, "E0F0F87CBEB878F0" 

620 PATTERN S#7, "F0E0A050A844860A" 

630 PATTERN S#8, "OOOOOOOOOOOOOOFF" 

640 PATTERN S#9 \ "7A38 1 A3F10285438" 

650 PATTERN S#10, "OOOOOOOOOOOOOOFF" 

660 PATTERN S# 1 1 , "FEFCF8FC081 42A1C" 

670 PATTERN S#12, "0002001008093307" 

680 PATTERN S#13, "0B034 10012108002" 

690 PATTERN S# 14, "000094208490C4D4" 

700 PATTERN S#15, "C080500440140048" 

710 RETURN 

720 COLOR 

730 CURSOR 75,80 

740 PRINT "CONGRATULATIONS ! " 

750 CURSOR 90,90 

760 PRINT "YOU MADE IT " 

770 CURSOR 55, 100 

780 PR I NT "NOW FOR YOUR NEXT MISSION" 

790 FOR 1=1 TO 180 

800 COLOR, , ,RND(1)*16 

810 NEXT I 

820 SPEED=SPEED+1 

830 GOTO 10 

840 BL I NE (40 , 75 ) - ( 226 , 1 1 ) , , BF 

B50 COLOR 

860 CURSOR 99,80 

870 PRINT "GAME OVER" 

880 COLOR 

890 CURSOR 45,95 

900 PRINT "PRESS FIRE BUTTON TO TRY AGAIN" 

910 COLOR, , ,RND(1)*16 

920 IF STRIG(1)=1 THEN SPEED=1:G0T0 10 

930 GOTO 910 



ERROR MESSAGES 



In the last magazine there was a small 
article about Error Messages. (EM's for 
short.) This was obviously not enough 
as lots of people have contacted us ask- 
ing for more. We will cover the EM's 
covered in last months issue in more 
depth as well as introducing some more 
of the strange little phrases which ap- 
pear on screen from time to time. 

SYNTAX ERRORS: This is probably 
the most common EM and is the easiest 
to fix. (thankfully!) You will get this EM 
when the computer has received some 
information that it doesn't understand. 
It can occur while you are keying in in- 
formation or while running a pro- 
gramme. If you get this error while 
entering a command directly simply 
retype the line or, using the cursor ar- 
rows move up the screen and correct 
the problem if you can see it. Now if 
you still get the error and you can't see 
why check the following: 

A. You haven't mixed up any i's. Is and 
one's or any o's and zero's. This is very 
easy to do and the computer does not 
understand things like :- 

LIST 
S0UND 

B. Make sure that there is nothing else 
on that line of the screen by going to 
the end of the line and pressing CTRL 
E or by clearing screen and retyping the 
line. 

C. Reset the computer and start the line 
again. 

D. You have got the right number of 
brackets and you are using the right 
type of bracket. 

If you get a Syntax Error while a pro- 
gramme is running the first thing to do 
is to list line the concerned. Eg 

? Syntax error in 100 
LIST 100 [CR] 

Check the line. Fix any obvious 
mistakes and there should be no further 
problem. When you list the line, if TWO 
lines are listed, erase the second, un- 
wanted line, push CR, and retype the 
line just erased on a new empty line. 
You have forgotton to press the CR key 
at the end of the first line when enter- 
ing the programme. (Naughty!) 

STATEMENT AND FUNCTION 
PARAMETER ERRORS: These aren't 
so nice. You will get one of these EM's 
if a variable (parameter) is too big or 
small. Check the line over first making 
sure that you haven't left out any 
brackets (a typical cause for this EM.) 



or anything silly like that. If you can find 
no errors things get a little bit more com- 
plicated as you must work out which 
parameter is causing the error. To do 
this print all the variables and string us- 
ed on that line. Eg 

? Statement parameter error in 100 

You must type: 
LIST 100 [CR] 
100 D = RND(F)*COS(B)*AD(I,K) 

You must now type: 
PRINT F;B;AD;I;K [CR] 



If one of the numbers or letters printed 
is obviously wrong (ie very big or vey 
small) then you must look back through 
the programme and check every line 
that uses that variable. In a big pro- 
gramme this is not easy but it's the on- 
ly way to correct the error. Other things 
to check for are any command that uses 
the graphic screen (Eg LINE, PAINT. 
PSET. CURSOR etc) should not have 
a X value between and 255 and a Y 
value between and 191. Check in the 
manual for definitions of the Functions 
and Statements used to see if there are 
any restrictions on the parameters 
which can be used. If you are still 
unable to fix the problem you will have 
to check the program line by line to find 
the error. (Have fun!) 

OUT OF DATA ERRORS: See last 
issue 

TYPE MISMATCH ERRORS: See last 
issue 

UNDEFINED LINE NUMBER ER- 
RORS: These occur when you try to 
send the computer to a line that doesn't 
exist. (Either with a GOTO, GOSUB, 
ON . . . ON . . . GOSUB, IF . . . 
THEN, and RENUM) List the line men- 
tioned in the EM and check the 
GOTO's GOSUB's etc. This should fix 
the problem. If this EM pops up when 
you use a RENUM then you will have 
to check every GOTO, GOSUB, 
IF . . . THEN etc, to find the one (there 
might be more than one if you have not 
been careful.) line that sends the com- 
puter to a line that doesn't exist. This 
is the only way you can correct it. 

DIVISION BY ZERO ERRORS: These 
occur when you try to divide a number 
or variable by zero. List the offending 
line and make sure it has been entered 
correctly. If there is no visible error list 
out all the variables used for division on 



that line and see if any of them equal 
zero. Check to see you have got the 
right amount of brackets and that they 
are in the right place. Also check your 
i's, l's etc. If you can't find a mistake 
you will then have to check back 
through the program line-by-line look- 
ing for lines that use the variables that 
equalled zero in the original line. 

OUT OF MEMORY ERRORS: Happen 
when there is no memory left for you 
to use. This can happen when you are 
loading in programs from cassette, 
when running programs or when typ- 
ing them in. You have to make more 
memory available to the computer. 

LOADING: There is nothing you can 
do but switch the computer off and try 
again. If you have no luck this time you 
are trying to load a program that is too 
big for the memory cartridge, (ie you 
are trying to fit an elephant into a Min- 
nie.) This should only happen if you 
own a II A or IIIA cartridge. There is 
nothing you can do about this accept 
buy a new cartridge. 

RUNNING AND ENTERING A PRO- 
GRAM: The computer has run out of 
space to work on your program. There 
are a number of things you can do to 
give it more memory space. Firstly go 
through the program and remove all the 
spaces on program lines (Not between 
words enclosed in quotation marks in 
PRINT statements.) Now remove all the 
REM statements. Make sure that all 
your variables names are only up too 
2 letters or characters long. (The com- 
puter only looks at the first two letters 
or a variable name eg. It sees LEG and 
LE as the same Variable.) Enter ERASE 
[CR] This wipes the arrays and 
realeases more memory. Try SAVEing 
the program, switching the machine off 
and reloading the program. If all the 
above listed suggestions do not fix the 
problem try decreasing the numbers in 
the DIM statements (These are normally 
found at the beginning of the program.) 

VALUE OF SUBSCRIPT ERROR: Oc- 
curs when you use an array (EG. 
A(l) . . . a(101) or ab$(21) etc) List 
the offending line and look for the Ar- 
rays. If you have not DIMemnsioned 
the array with a DIM statement you will 
get this EM's. Check to see that there 
is a DIM at the start of the program. If 
the Array has been DIMed and you get 
this error, you have used a number in- 
side the brackets on one of the arrays 
on the offending line, which is bigger 

Cont. on p. 25 



REVIEWS 



Vampire Spelling 



by Michael Howard 



As soon as the title of this program was heard it was 
obvious who the programmer was, I mean who else 
goes ape over vampires, and Purple People Eaters? 
Well, this is another offering from the stable 
(dungeon?) of the author of "The Horse!', "Help!" 
and "More than 50 programs for the Sega SC2000," 
and features none other than Vanessa the Vampire, 
Fearless Fred and Slender Sue. The story-line goes 
something like this:- 

Vanessa the Vampire got thoroughly annoyed when 
Throggle led the Purple People Eaters out of "The 
House!" and into "The Crazy Crypt," so much so, 
that she herself decided to leave her abode and 
wreak havoc on the world. 

She was hanging from the rafters one night (all her 
coffins had been destroyed) reading a copy of "The 
Very vicious Vampire" (a trendy magazine for blood- 
suckers) when a black cat (called Saskutz) came in 
and said she knew of a relative of Siddy Superspook. 
The Vampire started licking her lips and sharpening 
her fangs at the thought of getting her revenge on 
that creep Siddy. Apparently, Siddy has a relative 
called Fearless Fred, and Fred is going out with a 
girl called Slender Sue. Vanessa, started thinking. 
The next day she kidnapped Sue and took her to 
her mate's castle, (Vanessa ended up killing her 
"mate" and claiming the castle for herself) and im- 
prisoned her. Within a few minutes Fred had heard 
the news of his loved one's kidnapping. 

The program starts when Fred has arrived at the cas- 
tle and can see Sue. To rescue Sue, Fred (You!) 



must spell at least 13 words correctly, each time a 
word is spelt correctly Fred goes into his shed and 
builds part of a seige engine, he then walks out with 
a wheelbarrow and assembles the wheels, braces, 
ladders and gangplanks of the siege engine, when 
the machine is fully built, Fred can rescue Sue. Of 
course, things aren't quite that simple, every now and 
then Vanessa launches surprise attacks on Fred in 
her attempts to keep Sue. If you get a question 
wrong (You have two attempts at a word) then you 
are unceremoniously squashed by a 1-ton weight or 
a boot or a foot or get zapped by Vanessa. 

The game features excellent machine code anima- 
tion, over 160 sprites, title screen, music, machine 
code sound effects, beautiful graphics. 10 areas of 
spelling to choose from and wonderful sense of 
humour. It is easy to use, quick and for the people 
learning to spell . . . highly addictive and fun. 

I think this program will appeal to 3 sets of people: 

1. Parents wishing to teach youngsters various 
aspects of spelling. 

2. Programmers wishing to learn aspects of anima- 
tion. The animation in this program is ex- 
cellent . . . the way Fred walks is really good. 

3. Vanessa freaks ... If you loose all your Freds 
(You have 4 lives) you get to meet Vanessa face-to- 
face, (NOT a pleasant experience) this is the first of- 
ficial close up of Vanessa. 

All-in-all, no matter who buys this program, you'll 
love it . . . it's real fun!!! 



Dungeons Beneath Cairo 



WOW!! What else can I say? This game really knock- 
ed me over. This is a D & D style game with all the 
attributes of an arcade adventure strategic type game. 
I'll set the scene. You play Thor the mighty warrior, 
and have been sent deep beneath an pyramid to 
retrieve Tutankhamins Starve. Sounds easy huh? If 
you answer was yes then your in for a shock. The 
Starve is 15 levels beneath the pyramid, but to find 
you it must fend off wolves, dragons, mutants, 
ghouls, vampires, rougues, trolls and swordsman to 
name a few. You also have to be carefull not to fall 
into pits or get caught by traps. To get from one 
dungeon to another, you must have enough ex- 
perience points. To gain experience points you can 
either fight monsters or sacrifice rubys at the nearest 
temple. Each dungeon is completely unmapped, you 



have to map it out. But every now and then you will 
come across enemies, traps or rubies. 

This is not your every day game, on average it takes 
about two hours to complete a game. The grapics 
are superb and sound really amazed me. I didn't 
think any computer could simulate the sound of 
swords clanging or someone being whacked. When 
loading up the main program it shows a pretty pic- 
ture of the pyramid. The packaging is excellent and 
the game is encased in a small video cassette type 
case. This game rivals the best of the cartridge games 
but is quite a bit cheaper. When it comes to games 
I am very fussy but this one scores 100% with me. 
Definately recommended. Any way I must get back 
to the fight, I'm being mauled by a Gargoyle. 



HARDWARE REVIEW 



Parallel Interface 



There is now a new, exciting peripheral interface 
available for the Sega. This interface allows you to 
hook an SC3000 to any Centronics parallel printer 
without having to buy an SF7000 Super Control sta- 
tion. This means that you can get full 80 column let- 
ter quality print out from your Sega so you can use 
the computer for word processing, filing and spread 
sheets. The interface hooks up to the printer/plot- 
ter port and the power supply plugs into the interface . 

A small programme is provided with the interface 
which once loaded in and running will allow you to 
use all the computers built in printer functions ex- 



cept you will get an 80 column print out instead of 
38 columns. 

This programme can be wiped from the memory and 
new programmes loaded in and you will still obtain 
an 80 column print out. All printer functions such 
as LLIST, LPRINT and HCOPY can be used with 
no alterations. 

The interface has just been released in New Zealand 
at a cost of $200.00. For further information and 
ordering details please phone Auckland 403-8551. 
Or write to: User Tronics, 52 Stredwick Drive, Tor- 
bay, Auckland. 



******************************************** *********** 

How to Program in Machine 

Code Language on the 

Sega SC3000 

********************* by COLIN SMITH ********************** 

We will now start paying attention to the 'F' or flag register. 
The flag register is an 8 bit memory location where 6 of the 
bits represent the result of a logic or arithmetic operation. 
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Bit 0:- 

Contains the carry flag. The carry flag is used to indicate 
whether the addition or subtraction just completed by the 
computer, generated a carry or borrow. 

The carry bit can be tested and that result used for a jump, 
call or return in a program. 

Bit 1:- 

This bit is set to 1 after a subtraction and after an addition. 
This bit is normally not used by a programmer, but is used 
internally by the computer when doing BCD (binary coded 
decimal) arithmetic. It is not possible to test this bit as it is nor- 
mally for computer use only. 

Bit 2:- 

This bit has two functions, it is used to indicate parity and 
overflow If the parity is odd this bit will be set to and will 
be set to 1 if the parity is even. The parity of data if found 



by adding all the 'Is' in a byte, these will add to an odd or 
even number. It is normally used with 7 bit codes such as 
ASCII where the parity makes up the 8th bit. 

When doing two's complement arithmetic this bit will be set 
to 1 if an overflow situation is detected and the sign of the 
number (— + ) is accidentally changed. 

Bit 3/5:- 

These two bits are not used. 

Bit 4:- 

This bit is known as the half carry and is used by the com- 
puter when doing BCD arithmetic. It cannot be tested by the 
programmer as it is normally for the computers use only. 

Bit 6:- 

This bit indicates whether the result of the last operation 
generated a zero. In the even of the result of the last opera- 
tion generated a zereo. In the event of the result =0, this 
bit is set to 1 and is reset to if it is not. 

Bit 7:- 

This bit indicates the value of the most significant bit of the 
result (bit 7). If the result is positive, bit 7 will be 0, if it is 
negative it will be set to 1. 



8 BIT ARITHMETIC AND LOGIC 
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ADDITION:- 

Register Addressing: The operation of these codes are very 
simple. The contents of the source registers are added to the 
'A; register and the result is placed back into the A register 
e.g. The code 87 Hadds the A register to itself. 
The code 80 adds the B register to the A register. 

Register Indirect: The sixteen bit code in HL is used as a 
memory pointer. The contents of this address are added to 
the A register and the result is stored in the A register. 

Indexed: The sixteen bit address in the IX and IY registers are 
used as base values and the value 'd' is the offset value, these 
are then used as a memory pointer. The contents of this ad- 
dress are added to the A register and the result is stored in 
the A register. 

Intermediate: The value 'n' following the opcode is added 
immediately to the A register and the result stored in the A 
register. 

SUBTRACTION:- 

These are the same as for addition, except the data is sub- 
tracted from the A register. 

ADD /SUB with CARRY:- 

These again are the same as before with the exception that 
any previous carry or borrow is taken into account. 

AND:- 

A great many people come unstuck when trying to work out 
logical operations. So, imagine we are down on a field full 
of sheep, (fig 1). The problem we have is to move the sheep 
to the other field. 
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The sheep can only be moved if gate 1 and gate 2 are open, 
this much should be obvious, (read this last sentence as gate 
1 AND gate 2.) 

If we make a gate closed equal , a gate open equal 1 , result 
not obtained equal and result obtained equal 1, then we 
get the following Truth Table. 



Gate 1 closed AND gate 2 closed 

Gate 1 open AND gate 2 closed 

Gate 1 closed AND gate 2 open 

Gate 1 open AND gate 2 open 

Only when both gates are open can we move the sheep. 

EXAMPLE PROGRAM:- 

We have the value 77h in the A register and the value CF 
in the B register. Both the A and B registers are ANDed by 
using the opcode A0h, the result is stored in the A register. 

Register A = 77h = 01110111 
Register B = CFh = 11001111 AND 
Result = 47h = 01000111 



OR:- 

We have the same problem as before with wanting to move 
the sheep, this time the gates are in a different place (fig 2). 





fig 1 



fig 2 



If gate 1 or gate 2 are open, then the sheep may pass through 
to the next field, (read as:- gate 1 OR gate 2). Giving the 
gates and result the same values as for AND, we get the 
following Truth Table. 
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Gate 1 closed OR gate 2 closed 
Gate 1 open OR gate 2 closed 
Gate 1 closed OR gate 2 open 
Gate 1 open OR gate 2 open 



EXAMPLE PROGRAM:- 

Register A = 77Hand register B = CFh, using the opcode 
B0h will OR the two values and place the result in the A 
register. 

Register A = 77 h = 01110111 
Register B = CFh = 11001111 
Result = FFh = 11111111 



XOR:- (exclusive OR) 

This time we are faced with the problem that we can only 
open one gate at any time. The gates slide open instead of 
swinging open and opening one gate closes the other. 




Gate 1 


Gate 2 


Resuli 











1 





1 





1 


1 


1 


1 






Gate 1 closed XOR gate 2 closed 
Gate 1 open XOR gate 2 closed 
Gate 1 closed XOR gate 2 open 
Gate 1 open XOR gate 2 open 



The result is very similar to the OR Truth Table with the ex- 
ception being that you cannot have both gates open. 

EXAMPLE PROGRAM :- 

Register A = 77h, register B = CFh using the opcode A8h. 
XORs register A and B, with the result placed back in register 
A. 

Register A = 77h = 01110111 
Register B = CFh = 11001111 
Result = B8h = 10111000 



COMPARE:- 

The data from the source is compared with the contents of 
register A. Effectivily the data is subtracted from register A, 
but instead of placing the result back into register A, it is 
deliberately forgotten. Therefore the contents of the A register 
are not changed. What is changed, however, is the F or flag 
register. This now contains the result of any special condi- 
tion applying to the subtraction, e.g. zero carry etc. The flag 
register would normally be tested after a compare instruction 
being used. 

INCREMENT & DECREMENT:- 

These should really be self explanitory, increment adds 1 to 
the data referred to by the source opcode and decrement sub- 
tracts 1 from the data. 



I will now describe a program, using the ADD & SUBTRACT 
opcodes for numbers 8 bits long. We will first do an addition 
using the values 09h and 08h. These must be located 
somewhere in memory so we will give them an address of 
A00lHand A002h. After we have completed the addition 
we will require somewhere to store the result so we will give 
it the address of A000h. 



The first step will be to load register A with the first number 
We will use the 8 bit Extended Addressing mode to achieve 
this, the opcode is 3A followed by the address which is A00 1 . 
We will require somewhere to store this program so we will 
give it a starting address of A003. 

A000h 00h — This is where the result will be stored. 

A001h09h — 1st byte of data. 

A002h08h - 2nd byte of data. 

A003h3Ah- opcode 

A004h01h— operand, low 

A005h A0h — byte first 

Load A from A001h. 

Step 2. We will use the HL register pair to point to the se- 
cond byte of data, therefore we will have to load the HL 
register with the address A002h. Using the 16 bit load group 
we will use the Immediate Extended addressing mode which 
will load the operand into the HL register. 

A006h 21h — opcode 
A007h 02h — operand, low 
A008h A0h- byte first. 

Loads HL with A002h. 

Step 3. We now have access to both bytes of data, so we 
can now add both numbers together using the Register In- 
direct code. 
A009h 86h - ADD A, HL 

STEP 4. Both numbers have been summed and the result 
is in the A register. We now require to have the answer in 
A placed back into memory. We will use the 8 bit load table 
and find a code that loads A straight into an extended address. 

A00Ah 32h - opcode 
A00Bh 00h — operand, low 
A00Ch A0h — byte first. 

Loads A into A000H. 

As the computer is initially running in Basic, it will be necessary 
to return the machine code program back to Basic. 

A00Dh C9h- Return 

The Basic program to poke this program into memory and 
call it as a subroutine is as follows. 

Remember that you are doing hexadecimal addition, if the 
sum adds up to greater than FF the carry would be lost. Try 
substituting different values for the data. 

8 BIT SUBTRACTION:- 

The program above will perform subtraction for us, all that 
is necessary is to change the addition opcode 86Hto the sub- 
traction opcode 96h. If the subtraction goes past zero the 
borrow will not be shown and there is no indication that the 
number is negative. 

Next issue 1 will show you how to add numbers greater than 
8 bits long using 8 bit addition and we shall cover 16 arithmetic 
opcodes. 



iimiiur 



■ imii i mummii i iin i imnirm 



Hi-Resolution Scrolling 

by Michael Howard 
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Here at last, is a duo of programs 
specifically for movement of left or right 
text (ie: you can move text left or right 

Enter the programs. When run, if you 
get an "Error" message check the 
DATA lines. Now save them to tape. 

Okay, here is how to use them. As the 
programs stand they will scroll (in their 
respective directions) the top 8 lines of 
the Hi-res page. Therefore, they will 
scroll a sentence or word or whatever 
you want so long as it is only 8 pixels 
in height. This may seem a little restric- 
ting but let's face it, you very rarely want 
to scroll the whole screen. If you wish 
to scroll, other than the top line, this is 
what you do . . . Firstly select your line. 
Now the chosen line Must be multiplied 

Left 

10 DATA0,3E,0,32,0,F0,D0,3C 



by a multiple of eight (eg cursor 247,0, 
or 247,8 or 247,64 etc) Note the Y- 
direction is a multiple of 8. Now enter 
the following: 

POKE &HF048, lNT(Y/8) 

Where Y is your Y-coordinate (which 
is a multiple of 8 . . . remember?!) 
Now place your string of info at that Y- 
position and execute the machine code 
by typing:- 

CALL & HF058 

If this all sounds a bit pukey, here's an 
example. 

Lets say you want to scroll the word 
"Merlin!" From right to left do the 
following. . . 

Enter the left scrolling program. Run it. 
Type in NEW (the program is still safe) 

Right 
,32,0,F0,C9 10 DATA0,3E, 



and enter the following program. 

10 SCREEN 2,2:CLS 

20 A$ = "Merlin!" 

30 Y=128: POKE &HF048, INT 

(Y/8) 

40 CURSOR 200. Y: PRINT A$ 

50 FOR A = 0TO 40:CALL 

&HF058.NEXT.GOTO10 

10 — Clear Hi-res screen 

20 — Define a word, and place in A$ 

30 — Set Y position. Set the Y posi- 
tion in the machine-code. . 

40 — Place your word at 200,Y (ie 
200 pixels across, Y-down) 

50 — Call machine code 41 times. 
Each call scrolls 6 times, ie 6 pix- 
els or a character. 

Well . . . Thats all folks. I hope you find 
it useful! 

,32,0,F0,D0,3C,32,0,F0,C9 



20 DATAE5, CD, C5 , 2B , CD , C8, 2B, E 1 , C9 
30 DATAE5,CD,CB,2B,CD, CE,2B,E1 , C9 
40 DATAF3,6,20,C5,CD, 1 5, F0, CB, 27, F5, 4? 
,3A,0,F0,FE,0,28,2,CB,C0, Fl,CD, 1,F0,78 
,CD,C,F0,CJ , 11,8,0,AF,ED,52, 10,DE,C9 
50 Df^TA6 3 8, 21 , F8,0,C5,E5,AF,32,0,F0,CD 
, IE, F0, El, 23, CI, 10,F2,C9 
60 DATA6,6,C5,CD,44,F0,C1, 10,F9,C9 
100 T=0:RESTORE:FORA = &HF000"rmHF061 :RE 
ADAS :B=UALC"&,H"+A$J :POKEA, B : T=T>B :NEXT 
:IFTO13079THENPRlNT"Error" 

997 REM 

998 REM Demo 

999 REM 

1000 A$="Hello this is a t es t .. 1 234567 
890-rilCHAEL" 

1010 SCREEN 2,2:CLS:F0RA=1T0LEN(A$J :CU 
RSOR247,0:PRJNTf1ID$tA$ J A, 1 J :CALL&,HF058 
:NEXT 

1020 FORA=0TO40:CALL&,HF058:NEXT 



20 DATAE5, CD, C5, 2B, CD, C8, 2B, El , C9 

30 DATAE5 , CD , CB , 2B , CD , CE , 2B , E 1 , C9 

40 DATAF3, 6,20,05,00, 1 5, F0, CB, 3F, F5, 47 

,3A,0,F0,FE,0,28,2,CB,F8, M,CD, 1,F0,78 

, CD,C,F0,C1, 1 1 , 3,0,AF,ED,5A, 10,DE,C9 

50 DATA6,8,21,0,0,C5,E5,AF,32,0,F0,CO, 

IE, F0, El, 23, CI , 10,F2,C9 

60 DATA6,6,C5, CD, 4 4, F0, C 1 , 10, F9, C9 

100 T=0 :REST0RE :FORA = &.HF000TO8,HF06l :RE 

ADA$:B^UALC"&.H ,, +A$) : T-T+-B :P0KEA, B :NEXT 

: JF T <> 129l9THENPRJNT"Error " 

997 REM 

998 REH Demo 

999 REM 

1000 A$ = ' : 98765432 1098765432 10987654321 
0987654321 " 

1010 SCREEN 2,2:CLS:F0RA=1TQLEN(A$J :CU 

RSOR0,0 :PRJNTriI0$CA$, A, 1 1 :CALL&HF058 :N 

EXT 

1020 FORA=0TO41 :CALLkHF058 :NEXT 



CONTACT PAGE 



Now it is our turn to whingc. Only two peo- Sega users in your area, or set up a club Brain Kelly 



pie have so far written in with their names 
and address for this contact page. There are 
over 2,000 members of the Users Club — 
this is only 0.1%! 

If you want to get into contact with other 



please send your name and address to us 
at Grandstand. 

The two good souls who have sent in their 
names so far are: 



Robert Road Otatara No 9 R.D. 
Invercargill ph. 331-473 

Neil Bryce 

131 North street Timaru ph. 88-434 
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DISKED BASED ADDRESS DIRECTORY BY S.J. EASTON 



This is a program specifically written for 
the Sega SC-3000 and SF-7000 
Machines and uses both random and 
sequential files to fulfil its function. 

Because it is written in basic the search 
routines located at lines 13000 and 20 
20 can become quite slow as the direc- 
tory nears its full point. (10-12 seconds 
for last entry). 

A machine code routine for this task 
would be most helpful but to date I have 
not been successful in developing such 
a beast. (Any answers to my problem 
woufcl be most welcome). 

Disection of the program. 

(The program is full of rem statements 
to make it easier to follow) 

Line 10: 

Erases all strings present in memory. 

Line 15: 

Creates DD$&DP$ (to be used later in 
program) 

Lines 20-60: 

CLS, Sets screen colour and informs 
user to wait while initialisation to occur 

Line 60: 

Creates dimensional array for names. 

Line 70: 

Opens file on disk (refer page 123 of 
manual). 

Line 80: 

Length of file and if the length is "0" 
(i.e. file does not exist the routine at line 
2900 is called. 

Line 2910: 

Creates random file on disk (note you 
must have a disk with at least 90k bytes 
free set in drive or an error will occur 
and the program will crash). 

This instruction tells the disk drive to 
reserve 300 spaces on the disk for in- 
formation storage each space or sector 
is 256 bytes long, therefore nearly 19 
tracks (76800 bytes actually) of the disk 
are used. 

More effecient use of the disk space can 
be achieved by making this file half this 
size and putting twice as much informa- 
tion in each sector. As you can see I've 
put 90 bytes on the each sector. 

Some tricky program modifications are 
required but I did it — so you'll manage 
too. 



Line 2930: 

Fills dim created in line 60 with spaces. 

Line 2940: 

Calls sub routine to save the sequential 
file on disk. The sequential consists of 
all the information stored in the N$ ar- 
ray. (This time they are full of spaces 
so that as the directory gets fuller no 
more disks space is required). After 
finishing this sub routine at line 2450 the 
program jumps back to the main route 
at line 130. 

These lines close "A direct DTA" file. 
This is the main file holding all ad- 
dresses and telephone numbers "B 
direct DTA" is opened. This is the se- 
quential file that holds the name info, 
and reads it into N$ array. 

Line 130: 

Sets sequential file update marker to 0. 
This marker changes if any addition or 
deletion is made and subsequently a re- 
write of the file on disk is made when 
the directory is closed. 

Lines 140-240: 

Displays menu page, prompts for an 
entry of choice and in line 240 directs 
program branching as indicated. 

Line 1010: Option 1: read from 
directory* 

Sets title page of option 

Line 1020: 

Directs program to name search sub 
routine. 

Line 1310: 

Prompts for input of name and upon in- 
put asks you to wait while search is 
made. 

Lines 1320-1350: 

Performs search, allows premature 
escape from search loop upon finding 
name and returns you to main 
program. 

Line 1040: 

Directs program to file retrieval sub 
routine (from disk) this routine retrieves 
address and phone number information 
from disk, prepares and displays it. 

Line 1050: 

Gosubs to display next option choice 
(another search or back to main menu) 

Lines 1070-1090: 

Executes choice. If the name that was 



entered on line 1310 was not found in 
the directory by the search in line 1030 
the computer tells you and the option 
choice routine is called. 

Lines 2000-2580: Option 2: addi- 
tion to directory. 

The program searches for free space in 
the directory (2039-2050). If no free 
space is found Line 2060 tells you and 
after a delay returns you to the main 
menu upon finding free space, F is 
noted (F is the file number) prompting 
and entering of information occurs on 
Lines 2080-2120 the sub routines at 
2500, 2540 and 2570 ensure specified 
lengths of this information. This was 
necessary so that on retrieval of data in 
option it was simpler to display files. 

Lines 2130-2160: 

These prepare the information for 
storeage on disk in file number "E;; in 
the random file "a direct. DTA" sfud is 
changed from to 7772 (don't ask 
why) to indicate that you need to re- 
write the sequential file when the direc- 
tory is closed. (Don't ask why!) 

Lines 3000-3190: Option 3: delete 
from directory. 

The same search as used in option 1 is 
used to find the name you wish to 
delete. Once found a prompt is given 
to ask if the name is to be deleted. If 
answered [Y] the appropriate files are 
filled with spaces from DD$. If 
answered [N] then the choice of 
another name or the main menu is 
offered. 

Lines 4000-4110: Option 4: close 
directory 

This allows all 3000 names (maximum) 
to be listed and viewed. This is achiev- 
ed in 10 blocks of 30 names and a 
return to the main menucan also be 
achieved after each block. 

Lines 5000-5140: Option 5: close 
directory. 

Line 5020 determines whether or not 
a re-write of the sequential file is 
necessary. If SFUD = 7772 then the 
program simply indicates that the direc- 
tory is closed and halts (Line 5040) if 
an addition or deletion has occurred 
then SFUD = 7772 (Line 2160 or 
3140) and a re- write of the sequential 
file "direct B.DTA" is carried out before 
the prog rams halts. (Lines 
5030&5 100-5 140) 



10 ERASE 

15 DD*-" DP*=" 

20 CLS: COLOR 1,7 

30 CURSOR 5, 6: PRINT "DISK BASED ADDRESS DIRECTORY" 

40 CURSOR 8, 8: PRINT "By S.J. East, on (C) 1985" 
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50 
60 
70 
80 
90 

100 
110 
120 

130 
140 
150 
160 
170 
180 
190 

200 

210 

220 
230 
240 

1000 
1 1 
1020 
1030 
1040 
1 050 
1060 

1070 

1080 
1 090 

1300 

1310 

AIT 

1 320 

1330 

1340 

1350 

1400 

1410 
1420 

1500 

1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 

1610 
1620 
1630 

2000 

20 1 

2020 
2030 
2040 
2050 
2060 
1 TO 
2070 
2080 
2090 

2 1 00 

2110 



CURSOR 1,10: PRINT- 
DIM N$<300> 

OPEN "A direct.DTA"AS #1 
IF LOF(1)=0 THEN GOTO 2900 
CLOSE 

direct. DT A "FOR INPUT ASttl 
TO 300 : I NPUT # 1 , N* ( N ) : NE X T 



PLEASE WAIT FOR FILE INITIALISATION 



ADDRESS DIRECTORY 



•*-*' 



OPEN "B 

FOR N= 1 TO 300 : I NPUT # 1 , N* ( N ) : NE X T 

CLOSE 

SFUD=0 

BEEP :CLS: CURSORS, 1: PRINT"** 

CURSOR 13, 4: PR I NT"** MENU 

CURSOR13,5:PRINT"" 

CURSORS, 7: PRINT" 1 READ FROM DIRECTORY" 

CURSORS, 9: PR I NT "2 ADDITION TO DIRECTORY" 

CURSORS, 11:PRINT"3 DELETE FROM DIRECTORY" 

CURSORS, 13: PR. I NT "4 LIST NAMES IN DIRECTORY" 

CURSORS, 15:PRINT"5 CLOSE DIRECTORY" 

CURSORS, 19s PRINT "SELECT MENU (1) THRU (5) " 

A**INKEY*sIFA*<"l"DRA*: "S"THEN 230 

OMV AL ( A* ) SOTO 1 000 , 2000 , 3000 , 4 000 , 5000 

REM #### read from directory Jltitttt 

BEEP:CLS:FOR X=l TO 1001 NEXT : CURSOR 3, li PRINT " 

GOSUB 1300 

IF F=0 THEN PRINT : PRINT "NAME NOT ON FILE": GOTO 

GOSUB 1500 

GOSUB 1400 

J*=INKEY* 

IFJ*=CHR*(13) THEN1000 

IFJ*=CHR*<77)THEN 140 

GOTO 1060 

REM ###### search for name ###### 

CURSOR©, 5: INPUT "PLEASE ENTER SURNAME: 
SEARCHING DIRECTORY" : PR INT : PRINT 

F0RN=1T0 300 

IFK*==LEFT*(N*(N) ,LEN(I<*) > THEN F=N:N=301 

NEXT 

RETURN 

REM ######## menu option ######## 

CURSOR 4, 22: PRINT M CCR3=NEW NAME CM]=MENU" 

RETURN 

get plus display Tile ### 
direct. DT A "AS #1 
AD*,0, 70; PH*, 70, 90 



** READ FROM DIRECTORY **" 



1050 



K*:F=0: PRINT : PRINT : PR I NT "PLEASE W 



0) : AE*=MID*(AD*,31 , 20) : AD*=LEFT* < AD* , 30) 



REM ### 

OPEN "A 

GET#l,Fi 

CLOSE 

AF*=RIGHT*(AD*, 

PRINT N$(F) 

IF AD$=" " THEN 1580 

PRINT AD* 

IF AE*=" " THEN 1600 

PRINT AE* 

IF AF*=" " THEN 1620 

PRINT AF* 

PRINT "Phone " ; PH* 

RETURN 

REM ### addition to directory ##tt 

BEEP: CLS: FOR X=l TO 100: NEXT : CURSOR 5,1: PRINT 

REM ### search loaded sequential 

PRINT : PR I NT : PRINT "PLEASE WAIT SEARCHING FOR FREE SPACE" 

FOR N=l TO 300: IF N*(N)=" "OR N*(N)="" THEN F=N : N=305 

NEXT N 

IF N=301 THEN CURSOR 1,8: PR I NT "FILE FULL ADDITION NOT POSSIBLE" 

750: NEXT : GOTO 140 

REM ### layout for data entry ### 



** ADDITION TO DIRECTORY ** 
-file -for -free space ### 



FOR D= 



CURSOR 1,8: INPUT "NAME 

CURSOR 1,10: INPUT "STREET 

CURSOR 1,12: INPUT "SUBURB 

CURSOR 1,14: INPUT "CITY 
2120 CURSOR 1,16: INPUT "PHONE 
2130 AD*=LEFT* (AD*, 30) +LEFT* ( AE*, 20) +LEFT* (AF*, 20) 
2140 OPEN "A direct. DTA"AS #1 



;N*(F) :N*(F)=LEFT*(N*(F) ,18) 
"J AD*:AD*=LEFT*(AD*,30) : GOSUB 2500 
"; AE*: AE*=LEFT*(AE*, 20) : GOSUB 2540 
"5 AF*: AF*=LEFT* (AF*. 20) : GOSUB 2570 
" 5 PH* 
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2 1 50 PUT* 1 p F ; AD* , , 70 ; PH* , 70 , 90 

216© CLOSE: SFUD=7772 

2170 GOSUB 1400 

2180 J*=INKEY* 

2190 I F J*=CHR* < 1 3 ) THEN2000 

2200 IFJ*=CHR*<77)THEN140 

2210 GOTO 2180 

2500 REM ******* string packing ****** 

2510 AD=30-LEN(AD*> 

2520 AD*--=AD*+LEFT* (DD*, AD) : RETURN 

2540 AE-20-LEN(AE*) 

2550 AE*=AE*+LEFT* ( DD* , AE ) : RETURN 

2570 AF=20-LEN(AF*> 

2580 AF*=AF*+LEFT* ( DD* , AF ) : RETURN 

2600 STOP 

2900 REM *** open main random file on disk 

2910 PUT*1 , 300; AD*, 0,70;PH* S 70, 90: CLOSE 

2920 REM open memory for sequential 

2930 FOR N=l TO 300:N*(N) : =" ":NEXT N 

2940 GOSUB 5110 

2950 GOTO 130 

3000 REM *** delete -from directory **# 

3010 BEEP: CLS: FOR X = l TO 100: NEXT : CURSOR ! 

3020 GOSUB 1300 

3030 IF F=0 THEN PRINTS PRINT "NAME NOT ON 

3040 GOSUB 1500 

3050 CURSOR 5, 19: PR I NT "LYJ=DELETE 

3060 J*=INKEY* 

3070 IF J*="Y" THEN 

3080 IF J*="N" THEN 

3090 GOTO 3060 

3100 BEEP 

3110 OPEN "A direct.DTA"AS *1 

3120 PUT*1 , F; DD*, O, 70; DP*, 70, 90 

3130 CLOSE 

3140 N*(F)=DP*:SFUD=7772 

3150 GOSUB 1400 

3160 J*=INKEY* 

3170 IFJ*=CHR* (13) THEN3000 

3180 IFJ*=CHR*(77)THEN 140 

3190 GOTO 3160 

4000 REM **** List name 
A=1:B=30:C=1 

x*i ru 

Page 



for -first time *** 



5,1s PRINT "** DELETE FROM DIRECTORY ** 
FILE": GOTO 3150 
CND=REMAIN" 



3 1 00 

BEEP: GOTO 3150 



?s on file ***** 



lOu: NEX f 

;c;" of 



: CURSOR 4, 1 :PKl(Tl 
10": PRINT 



CM]=MENU" 



'** LIST NAMES IN DIRECTORY 



4010 

4020 BEEP : CLS : FUR 

**": PRINT : PRINT 

4030 FOR X=A TO B 

4040 PRINT N*(X),:NEXT 

4050 A=A+30:B=B+30:C=C+1 

4060 CURSOR 4, 22: PRINT " CCR3=C0NTINUE 

4070 J*=INKEY* 

4080 IF J*=CHR*(13) AND B=330 THEN 4010 

4090 IF J*=CHR*(13) THEN 4020 

4100 IF J*=CHR*(77) THEN 140 

4110 GOTO 4070 

5000 REM ******** Close File ********* 

5010 BEEP:CLS:FOR X=l TO 100s NEXT : CURSOR 8,1:PRINT "** CLOSE DIRECTORY ** 

5020 IF SFUD07772 THEN 5040 

5030 CURSOR 10, 6: PRINT "CLOSING DIRECTORY" 

DISK IS UPDATED" -.GOSUB 5050 

5040 CURSOR U,15:PRINT "DIRECTORY CLOSED" 

5050 KILL "B direct. DTA" 

5060 GOSUB 5110 

5100 REM *** Sequential file update ** 

5110 OPEN "B direct. DTA"FOR OUTPUT AS*1 

5120 FOR N=l TO 300: PRINT *1 , N* (N) : NEXT N 

5130 CLOSE 

5140 RETURN 



CURSOR 1.10ft PRINT "PLEASE WAIT WHILE 



END 
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MAKING BETTER USE 

OF THE 

SEGAS VIDEO RAM 

BY IAN NICHOLOSON 



For those of you who are writing programs using the video 
ram may have wondered if there is an easier method to draw 
and save pictures rather than entering lots of commands, 
which take time to execute everytime a new picture is drawn. 

A utility known as "GRAPHIC DESIGNER" (which some of 
you may already have) has been developed which allows you 
to draw your own masterpieces, and then save the resulting 
picture on tape. The program has been developed such that 
the memory space needed to store a picture is proportional 
to the detail of the picture: eg. a simple picture would typically 
require less than Ik of memory space. Thus it is possible to 
store more than one picture in a program. Further, almost 
instantaneous changes are possible between pictures because 
of the machine code utility which has been developed, (ex- 
plained later). 

The picture information is stored in free memory area above 
that used by your basic program. So, depending on the length 
of your basic program, the complexity of the pictures, and 
the size of memory cartridge, determines the number of pic- 
tures which can be stored. 

The GEOGRAPHY programs have been also developed us- 
ing the above technique. 

The question that needs to be addressed is that now you have 
used the GRAPHIC DESIGNER program to develop your 
picture and it is saved on tape then how does one make use 
of this picture for their own programs. To explain the pro- 
ceedure it is necessary to explain how the picture is stored. 

THE SEGA VIDEO RAM. 

The following diagram comes from page 148 of your SEGA 
user manual. 



&HOOOO 


Graphic 2 mode 




Pattern generator 




table (6144 bytes) 


&H1800 




&H200 


Graphic 2 mode 




colour table 




(6144 bytes) 


&H3800 


Graphic 2 mode 




pattern name table 


&H3B00 


Sprite attribute 




table 




Empty 


&H3C00 


Text mode pattern 




name table 




Empty 



Areas of interest are those from &H0000 to &H1800 (pic- 
ture detail) and &H2000 to &H3800 (colour information). 
The picture that is seen in SCREEN 2,2 mode is stored in 
these locations. By VPEEKing these memory locations it is 



possible to visualise the makeup of a picture's elements and 
colours. 

So that a picture can be stored on tape it is necessary to take 
the information from the video RAM to the normal user RAM 
area. However it is not necessary to transfer all the data from 
the video RAM to the user RAM. All that is required is that 
which is necessary to recreate the picture. For example, 
assume that the picture is very simple consisting of a straight 
line. The information needed to recreate the picture is the 
lines location, pixel and colour. 

A machine code routine has been developed within the 
GRAPHICS DESIGNER program which scans the video 
RAM looking for information which was different from the 
previous sample. If the information is different then the in- 
formation plus its address is stored in the user RAM. Con- 
versly, if two consequtive samples have the same informa- 
tion then nothing is stored in the user RAM. This in effect 
means the amount of memory used is proportional to the 
compexity of the picture. 

GRAPHIC DESIGNER PROGRAM 

The program within the GRAPHIC DESIGNER does not 
make full use of the video memory as the top part of the 
screen is used for colour and function selection whereas the 
lower part is used for instruction messages. This means that 
instead of using &H0000 to &H1800 of the VIDEO RAM 
for pixel information, the area &H0100 to &H1600 is used. 
Similary the area &H2100 to &H3600 is used for the colour 
information. This is reflected in the diagram shown below. 



&H0000 


Colour and function 




selection 


&H0100 


Picture pixel 




information 


&H1600 


Instruction area 


&H1800 




&H2000 


Colour and function 




selection 


&H2100 


Picture colour 




information 


&H3600 


Instruction area 


&H3800 





MACHINE CODE ROUTINE FOR STORING PICTURE 
INTO RAM 

The routine shown in the flow diagram below scans the video 
ram from &H0100 to &H1600 storing the necessary infor- 
mation into the user RAM beginning at address &HB000. 
It then scans the VRAM from &H2100 to &H3600 storing 
the required information above that already stored above 
&HB000. 
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Set up VRAM 
scan address 

t 



Set up RAM 
storage area 



Scan VRAM 



SIMPLIFIED FLOW DIAGRAM 




< 



Place information 
and address 
into RAM 



n> 



Increase 
VRAM scan 
address 



> 



A program to accomplish this routine could be written in 
BASIC but as there are over 10000 points to sample and 
analyse the time to this task would be excessive. For this 
reason the machine code routine was developed. 



Set BC counter to 



Set pointer (DE) to 
picture information 
storage area. 



Set VRAM address up 
to that where infor- 
mation will be trans- 
ferred to (HL) 

Y = 



(1) 



(2) 



(3) 



Get address from pic- 
ture storage area. 



(4) 



Increase pointer (DE) 



ROUTINE TO DISPLAY A PICTURE STORED ON 
TAPE. 

The GRAPHIC DESIGNER allows you to store the picture 
that you have drawn onto tape. The information stored is that 
from memory location &HB000 onwards as described above. 

To enable you to use this picture on your own program, a 
machine code utility of about 80 bytes in length has to be 
added to your BASIC program. The associated flow diagram 
is shown below. 



FLOW DIAGRAM TO BUILD UP 
PICTURE FROM DATA IN RAM. 



< 




Transfer data 
from picture 
storage area 
to VRAM 

1~" 



Increment VRAM 
address 



Increment BC 
counter 

i 



Has BC reached 
final value 



JYES 



Repeat for 
colour info 



/\ 



(D 



(8) 



(9) 



NO 



;io) 



ii) 



> 
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EXPLANATION OF FLOW DIAGRAM 

(1) Counter known as BC is used to keep track of the number 
of picture elements sampled. 

(2) DE pointer is set to memory location where picture infor- 
mation is stored. 

(3) VRAM address is set to start of display area (in the case 
of GRAPHIC DESIGNER to &H0100 as explained 
previously) . 

(4) The information from the picture storage area is in groups 
of three bytes:- the first two bytes give the address and the 
third gives the pixel information. This step gets the first two 
bytes from the picture storage area. 

(5) Compares the two bytes from (4) with counter (BC). If 
it is the same then a change in pixel information is required 
at this address. 

(6) If step (5) is the same then picture information is effec- 
tivelly increased by three bytes. Next set of information is now 
available. 

(7) Data from picture information area (3rd byte) is transfer- 
red to video ram. 

(8) VRAM address increased by one. (This is an automatic 
function of step (7) 

(9) BC counter counter is increased 

(10) BC counter checked to determine if end of picture is 
reached. 

(11) Procedures (1) to (10) is repeated to produce the col- 
our information for the picture. 

MACHINE CODE ROUTINE 

The listing below is the machine code routine necessary to 
accomplish the proceedure above. It can be located anywhere 
in RAM. 



AD00 F5 


PUSH AF 


AD01 C5 


PUSH BC 


ADO 2 D5 


PUSH DE 


AD03 E5 


PUSH HL 


AD04 F3 


DI 


AD05 DBBF 


IN A, (BF) 


AD07 010000 


LD BC.0000 


AD0A 1100B0 


LD DE.B000 


AD0D 210001 


LD HL.,0100 


AD 10 CD442C 


CALL 2C44 


AD13 210000 


CALL 2C44 


AD16 1A 


LD A, (DE) 


AD17 B9 


CP C 


AD18 2009 


JR NZ AD23 


AD1A 13 


INC DE 


AD1B 1A 


LD A, (DE) 


AD1C B8 


CP B 


AD1D 2027 


JR NZ AD46 


AD1F 13 


INC DE 


AD20 1A 


LD A, (DE) 


AD21 67 


LD H, A 


AD22 13 


INC DE 


AD23 7C 


LD A, H 


AD24 D3BE 


OUT (BE), A 



AD26 03 


INC BC 


AD27 3E15 


LD A, 15 


AD29 B8 


CP B 


AD2A 20EA 


JR NZ AD16 


AD2C CB45 


BIT 0, L 


AD2E2010 


JR NZ AD40 


AD30 2C 


INC L 


AD31 E5 


PUSH HL 


AD32 210021 


LD HL, 2100 


AD35 CD442C 


CALL 2C44 


AD38 El 


P0PHL 


AD39 2600 


LD H,00 


AD3B 010000 


LD BC.0000 


AD3E 18D6 


JD AD16 


AD40 El 


POP HL 


AD41 Dl 


POPDE 


AD42 CI 


POP BC 


AD43 Fl 


POP AF 


AD44 FB 


EI 


AD45 C9 


RET 


AD46 IB 


DEC DE 


AD47 18DA 


AD23 



DISPLAYING A PICTURE STORED ON TAPE ONTO 
YOUR OWN PROGRAM 

At last we reach the objective of this article. This is best describ- 
ed in numbered steps followed by an example. 

(1) Load your BASIC program, then load the utility program 
as given in lines 10 to 50 in the example below. This can be 
added to your BASIC program. Run the utility part of the 
program so that the machine code is poked into its memory 
locations. The utility is designed to construct a picture from 
the data at &HB000 but this can be changed if desired. 

(2) Determine the area of free RAM available to store the pic- 
ture information in. You can determine where the end of your 
BASIC program is by typing in "PRINT 
HEX$(PEEK(&H8167)" to give the most significant byte. 
"PRINT HEX$(PEEK(&H8166))" gives the least significant 
byte. 

(3) It is advisable to set end of memory pointer (&H8168 & 
&H8169) to a value just below your picture storage area. If 
this is not done then any alterations to the BASIC program 
will shift the location of the picture information. 

(4) Poke &H8161 & &H8160 with the memory value at 
which the picture information will be stored. In the example 
it is &HBOO0. 

(5) Load your saved picture off tape. 

(6) Reset pointers &H8161 & &H8160 to their original 
values. These will usually to be &H98 & &H00 respectively. 
Now type in "GOTO 40". 

(7) If all has gone well then your masterpiece will now ap- 
pear on the graphics screen. 

EXAMPLE 

Assumptions 

(1) BASIC program located between &H9800 &HA900 

(2) Picture information start address &HB000 

(3) Machine code routine to start at &HAD00 



10 RESTORE 20:F0R X=&HAD00 TO &HAD48:READ B*: C*="&H"+B«: C=VAL <C«) : POKEX , C: NEXT 
20 DATA F5, C5, D5, E5, F3, DB, BF, 01 , 00, 00, 1 1 , 00, B0, 21 , 00, 01 , CD, 44, 2C, 21 , 00, 00, 1A, B9, 
20,09, 13, 1A,B8,20,27, 13, 1A,67, 13, 7C, D3, BE, 03, 3E, 15, BB, 20, EA, CB, 45, 20, 10,2C,E5,21 
, 00, 21 , CD, 44, 2C, El , 26, 00, 01 , 00, 00, IB, D6, El , Dl , CI , Fl , FB, C9, IB, 18, DA 



30 STOP 

40 SCREEN 2,2:CALL?/HAD00 

50 GOTO 50 
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HOUSEHOLD ALARM PROJECT 



With some home burglar alarm systems 
costing as much as $650.00 this pro- 
ject is a very cheap alternative and costs 
approximately $100-150. (Depending 
on how complicated you want it to be 
and if you to use smoke detectors or 
pressure mats.) With the right program- 
ming this burlar alarm can be as good 
as any commercial alarm. 

This project is designed for those of you 
who have a general knowledge about 
electronics. You will be required to build 
an electronic amplifier, choose a correct 
power supply for your application , wire 
a speaker and a series of electronic 
switches. 

It works on the same principal as any 
other household burglar alarm in that 
around the building there are switches 
mounted on the doors and windows 
etc. When a door is opened it will ac- 
tivate the switch which is detected by 
the computer and thus activating a loud 
speaker siren usually palced high up on 
the outside of the building. 



There is one major difference with this 
alarm system, and it is it is SOFTWARE 
CONTROLLED. This means that say 
when the front door is opened you 
have 30 seconds to get to the computer 
and enter a password to stop the alarm 
from sounding and waking up the 
neighbours. 

This project requires an external 
weather speaker that can be mounted 
outside so that the alarm can be heard. 
It would have been easy to make this 
alarm system work off your T.V. or Hi 
Fi unit but it wouldn't be practical as you 
would have to leave your T.V. etc on 
all day and night and nobody outside 
could hear the alarm if it was set off. We 
have to make a small low voltage 
amplifier so as not to double your 
power bill!! 



With this project all you have to do is 
keep your SEGA and AMP POWER 
SUPPLY on. 



CONSTRUCTION 

Start with the Audio amplifier, if you 
already have a general purpose Audio 
amp then skip this section. 

David Reid Electronics have an Audio 
Amplifier in kit form, this kit is suitable 
for intermediate to advanced electronic 
enthusiasts. (See parts list below.) 

One small point, if you are going to use 
this kit we found it necessary to bend 
the middle "leg" on Q3 transistor over 
to the middle pin on the P.C.B to get 
the transistor to fit. (This may have been 
just our individual kit but watch out for 
this.) 

With the amplifier completed mount the 
unit against the side of the case aprox 
10mm from the bottom. 

Drill two small holes adjacent to the 
mounting bracket and then each side of 
it. These will be used for the speaker, 
power supply and the sound input wires 
as shown on the diagram below. 



15-30 VOLT 
POWER SUPPLY^ 



_r±i 



S±L 



¥ 



MOUNTING BRACKET 



AMPLIFIER 
IN EARTH 



Pin No. 1 



Pin No. 3 



= 5 Pin Din Plug 



HORN 
SPEAKER 




Now connect the Speaker and power 
supply to the Amplifier as shown in the 
instructions for the Audio Amp. As for 
the "input" side of the amp, connect the 
"EARTH" wire to pin 3 on Video plug 
on the back of the computer, then the 
"IN" wire has to be connected pin 1 on 
the 5 pin din video socket. Once the 
amplifier, speaker and power supply 
have been connected up it is a good 
idea to plug it all in as directed in fig 1 . 
Then type in "sound 1,110,15" to your 
SEGA SC-3000. and if every thing was 



connected up correctly then you should 
hear a loud noise from the external 
speaker. 

We can now mount the proximity swit- 
ches on the doors and windows etc. 
Depending on your program you can 
have up to 12 of these switches around 
your house. Try to hide these if possi- 
ble. Then run a cable from the each of 
the switches to the computer joystick 
ports. A MAXIMUM of six switches can 
be wired to each joystick port. 



Now comes the really tricky bit. Lets say 
for example we have 8 switches we 
wish to monitor. From each micro 
switch located on a door or window 
there is two wires running to the com- 
puter. For the first six switches take one 
wire from each switch and connect it to 
the "COMMON" pin. (this means that 
pin No 8 will have 6 wires connected 
to it. See Diagram 2 below.) As for the 
other wire, on each micro switch con- 
nect them individually to pins 1,2,3,4,6 
and 9 on the JOYSTICK 1 port. For the 
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other two switches hook one wire from 
each up to the common pin on 
JOYSTICK 2 port (Pin 8) and the other 
wire from each micro switch individual 
to any of the six pins which the com- 
puter scans. (Pins 1,2,3,4,6 and 9) 

What we have done is to hook each 
micro switch up to a joystick port pin 
that the computer scans. A signal is 
constantly sent out through Pin 8. 
When a door or window is opened and 
the circuit is complete and a signai is 
received from that individual micro 
switch. By scanning individually pins we 
can tell exactly which window or door 
has been opened and correspondingly 
take action as required. (Eg turn on the 
alarm and scare the hell out of any un- 
wanted visitors!) 

Each pin has direction or fire button 
assigned to it. (see diagram 2.) 

Using both the STICK and STRIG com- 
mands for both joystick ports to test for 
any instructions. For example if you 
check scanning STICK(l) and we get 
a value of 1 ("UP") returned we know 
that the door, window etc attached to 
Pin 1 has been opened. If a value of 
Zero is given everything is secure. We 
have listed a Demonstration pro- 
gramme with eight devices hooked up. 
(Front and Back door, 4 windows and 
two smoke detectors.) 



-^IIIIHHIIIIIIIIIIIIIIIIIIIIIIIIIIIHIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIMIllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllUIHIIIIHHIIIIIIHIIIIIHIIIIIIIUi 

1. Joystick Terminal 
Two connector sockets. JOY1 and JOY2. foi joysticks are supplied at the 
reai end of the SF-3000. each connected to the P P I inside the SF-3000 



AMP 9pm male type 



Pin 
numbet 


Function 


1 

2 
3 
4 
5 
6 
7 
8 
9 




r UP 

DOWN 

LEFT 

. RIGHT 


Trigger LEFT 


Common 
Trigger RIGHT 



2. Video/audio Output Terminal 



Pin 
number 


Function 


1 
2 
3 
4 
5 


Audio signal 
Video signal 

GND 

GND 

GND 



00000 
0000 



Outlook of the joystick connector socket 
and its pin numbers 



DIN Spin female type 




Outlook of the VIDEO connector sockei 
and its pm numbers 



Sec pages 181 and 183 in the SF7000 disk 
drive manual or pages 149-150 in the level 
III Sega manual. 



fiiiitiiiii mi iiiiraiuiiiiuimii! luniHNiiiii hiiiiuiiiiihiiiiiiiii nitiiiimiiiiiiiiutniiMtiMiiiiMiiiiiiHiiitMiiiiiiiiutMiiiiiiiitiiitniiuni uimip 



Part No . 
K133 



Price 
$19.95 



$4.31 



$2.99 
$2.50 

$3.95 
$30.00 



Available from 
David Reid Elec 



David Reid Elec 



BP6 


$14.70 


David Reid Elec 


P15 


$1.45 


David Reid Elec 


RH5P 


$22.95 


David Reid Elec 




$30-40 


David Reid Elec 



PARTS LIST 

1 x UNIVERSAL AUDIO AMPLIFIER 
NOTE: This amplifier is a electronic kit which will 
require you to perform soldering and assembly. It is 
reasonably easy to make! 

2 x AMP 9 — pin male type plug PCTE9P 
NOTE: These are the joystick plugs 
1 x 145mm * 54mm Plastic box. 
1x5 pin din plug 
1 x 8 Ohm SPEAKER HORN 5" 
1 x 15-30 volt DC power supply 
NOTE: The greater the voltage of the power supply 
the louder the alarm. We used a 24v DC and 
found this quite acceptable. 
2x 3mm x 15mm Nuts and Bolts for 
mounting the Amp to its case. 
1 x 2.1mm Power socket for adapter P37 

ASSTD SWITCHES : 

WINDOWS: Proximity switches with magnets. SW80 

(Normally open) L-5212 

DOORS: Proximity switches as above 

PRESSURE MAT: Placed under carpet or L-5270 

mat. Activated when Trodden on. 

HEAT/FIRE SENSORS: (Normally open) L-5254 $15.00 Dick Smith 

PLEASE NOTE: There is a large range of security switches available from most electronic shops, but unless you run them 
through an inverter then please make sure they are of the "NORMALLY OPEN" type. (Otherwise the alarm will go off 
all the time and turn off when somebody breaks in!) 

TWIN FLEX WIRE: for wiring switches and speaker etc $.50 per metre 

As you can see this project opens up, a whole range or possibilities for interpreting data from external devices from the 
Joystick ports. 
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Dick Reid Elec 
David Smith Elec 
David Reid Elec 



David Reid 
Dick Smith 

Dick Smith 



Household Burglar Alarm Programme 



This is a demonstration programme that 
scans five doors and windows, two 
smoke detectors and the front door. 



Line 50 checks to see any one of the 
four normal doors or windows have 
been opened. This means that all the 



normal doors and windows have to be 
hooked up to joystick port 1. 



Line 60 checks to see that the smoke 
detectors have been set off. This means 
that they must be connected to the fire 
pins on joystick port 1. 



Line 70 checks to see if the front door 
has been opened. If it has, you have 
one minute to key in a code (PN$) or 
else the alarm will be set off. The front 
door is wired to the up pin on the 
joystick 2 port. If this all seems confus- 
ing just experiment and all should 
become crystal clear. 



10 

20 

30 

40 

50 

60 

70 

100 

110 

120 

130 

200 

210 

220 

300 

3 1 

320 

330 

340 

350 

355 

360 

370 

380 

390 

400 

410 



REM HOUSE HOLD ALARM PROJECT 

REM BY GRANDSTAND 

A=STICK< 1) :B=STRIG<1) :C=STICK(2) 

IF A=0 AND B«0 AND C=0 THEN 30 

ON A GOTO 30, 100, 100, 100, 100, 100, 100, 100, 100 

ON B GOTO 30,200,200,200 

ON C GOTO 30, 300, 100, 100, 100, 100, 100, 100, 100 

REM DOOR OR WINDOW OPENED 

SOUND 1,440, 15: SOUND 2,441 

SOUND 1,640, 15: SOUND 2,641 



1 5 : SOUND 3 ,442,15: FOR 
1 5 : SOUND 3 , 642 , 1 5 : FOR 



DE«1 
DE---1 



TO 25s NEXT 

TO 25: Ni: XT 



GOTO 110 
REM SMOKE 
FOR 1=880 
GOTO 210 
REM FRONT 
REM 1 MIN 
REM 
REM 



DECTOR ACTIVATED 

TO 450 STEP -.1/25: SOUND 



1,1, 15: SOUND 



1+1.15 



JOUND 



1+2, 15:MEXT 



DOOR OPENED. YOU HAVE 
TO GET TO THE COMPUTER 
AND KEY IN PASS NUMBER TO 
STOP THE ALARM SOUNDING. 



PN*="1234" 

T I ME$= " 00 : 00 : 00 " 

FOR 1=1 TO 4 

IF T I ME* > " 00 : 1 : 00 " THEN 1 00 

A*=INKEY*:IF A*="" THEN 360 

IF A*=MID$(PN$, I, 1) THEN 400 

I F A$< >M I D* ( PN* ,1,1) THEN 1 00 

IF INKEY*=A* THEN 400 

NEXT 



Graphics to SP-400 



by Michael Howard 



Last issue featured a program for copying the picture on the graphics screen to the SP-400 Printer Plotter. Well, I decided 
to update the program and write it in machine-code so that it would run much quicker. I'd like to take this opportunity 
to thank G.W. Emms for giving me the original idea. Ta Mate!! All you do for this program is load it and run it! EASY! 

10 DATA0,0,0,ED,5B,0,F0,CD,4A,51,FE,0,C0,ED,5B,0,F0, 1C, AF, BB, 20, A, 14, 3E, CO, BA. 20 

, 4, 32, 2, FO, C9, ED, 53, 0, FO, C3, 3, FO 

20 T=0: F0RA=S<HF000T0?<HF026: READA*: V=VAL ( "?<h"+A$) s POKEA, V: T=T+V: NEXT : IFT- -4^61THE 

NBEEP2: PR I NT "ERROR" : STOP 

30 LPRINTCHR* ( 18) ; "A" : LPRINTCHR* ( 18) ; "MO, -200" : FOKE&HFOOO, 0: P0KE?<HF<">Ol . f> : P0KE*'HF 

002,0:CALL!>HF003 

40 LPRINT"M" ; PEEK (&HF000) ; " , " ; 191-PEEK (&HF001 ) : LFRINT" J 1 , 0" : CALUtHFOODi G0T040 
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=""1 mi inn mi inr mr 



SEGA COMPUTER SCHOOL 

i « n r= i nr=in r=^=i n r^=i n i =i m in i mi mi m i i rnr= i nr= i nr=i 



This is GRANSTAND'S latest project. 
We have converted about lOOOsq ft of 
our Auckland office into a classroom, 
painted and carpeted it and filled it with 
10 SEGA'S. The school will be used to 
teach young and old, experienced and 
inexperienced about computers and 
how to use them. Classes began on 
June 10th and have been a roaring suc- 
cess with the first months beginners 
courses being totally booked out. Even- 
tually, we intend to run three separate 
course (Beginners, Intermediate and 
Advanced). The beginners course is 
designed to help new computer owners 
and people who have little experience 
on coumputers to learn how to use a 
computer and what they can do. This 
course is not brand specific, so if peo- 
ple attend this course, they can transfer 



what they learn to just about any com- 
puter. The Intermediate Course is 
designed for people who own a SEGA 
and have had a little experience. It will 
cover sound and graphics and teach 
good programme structure and im- 
plementation. The Advanced course is 
for people who want to learn all about 
things like Machine Code and PEEKing 
and POKEing. Note: Not recommend- 
ed for those who don't have at least a 
PhD in Maths. No seriously, the courses 
have been well tested and move at a 
rate determined by the class itself. There 
are plenty of programmes to type in and 
to take home to help you fully unders- 
tand what you have studied that week. 
Yes, homework is set but not marked 
as I am to lazy)! 
Each course consists of 4 two hour 



lessons one each week for a month for 
a charge of $40. The courses are held 
Monday to Thursday each week bet- 
ween 5.30pm and 7.30pm. If the de- 
mand is great, enough courses will be 
held from 8.00pm to 10.00pm Monday 
to Thursday and on Saturdays. 
Weekend and day courses will also be 
available on selected days and 
weekends, and during the school 
holidays. 



PLEASE contact GRANSTAND for 
Further Details and Booking 
information. 
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BLACK JACK 



This programme makes use of the Sega's excellent graphics to produce an intelligent Black Jack game which 
can get rather difficult to beat. 

This program can be played by up to 4 people 

I PATTERNC#79, "70888888888870" : PATTERNC#48 , "70BB98ABC88870" : PATTERNC#160, "3C4299 
919199423C" 

10 REM BLACKJACK BY B. Coupe 

II G0SUB9000 

20 F=1:X=104:CR=1 

22 I FM ( F ) >0THENG0SUB4000 : BEEP 1 : BEEPO 

23 IFM (F) =0THENCURSGR130, (F-l ) #40+20: COLORE : PRINTCHR* (17) 5 "BUT" ; CHR* (16) 

24 F=F+1: IFF>PLTHEN30 

25 G0TG22 

30 G0SUB2000 

35 F0RF=1T0PL 

40 IFM(F)»0THEN92 

45 BLINE CO, 170)-<255, 191) , , BFs CURS0R10, 1 70s PRINTP* (F ) : " please enter your bet : " : 

50 G0SUB3000 

90 BEEP: B(F)=T: BLINE (52, (F-l ) *40+ 12) - (80, (F - 1 ) #40+19) , , BF: CURSGR46, (F - 1 ) * 40+ 1 2: M 

( F ) =M ( F ) -T : PR I NTM ( F ' ) : CURS0R30 , ( F 1 ) *40+20 : PR I NTT 

92 NEXTF 

95 BL I NE ( , 1 70 ) - ( 255 , 1 9 1 ) , , BF 

100 F0RF=1T0PL: IFM<F)«OANDB (F) =0THEN103 

102 X=136: CR=2: B0SUB4000: BEEF'l : BEEPO 

105 NEXT 

110 G0SUB2000 

120 F=l: X=168:CR-3 

1 25 I FM < F ) =0ANDB ( F ) =0THEN305 

130 C0L0R1:CGRS0R20, 170: PRINTP* (F ) ? " Stay, Twist or Buy ?" 

1 40 I *= I NKE Yt : I F I *= " S " THEN300 

150 IFI*= ,, T"THEN200 

160 IFI*="B"THEN500 

170 GOTO 140 

200 G0SUB4000: BEEP1 : BEEPO: X=--X+32: CR=CR + 1 

210 I FC ( F , 1 ) +C ( F , 2 ) +C ( F , 3 ) +C ( F , 4 ) +C < F , 5 ) >2 1 THEN 1 000 

220 IFCR=6THEN8000 

230 GOTO 140 

300 FOR I - 1 5T00STEP- 1 : SOUND 1 , 600 , 1 : SOUND 1 , 650 , 1 S SOUND 1 , 700 , I : NEXT: BL I NE (0,1 70 ) - ■ ( 2 

55, 191) , ,BF 

305 X = 168: CR-3: F-F+ 1 : IFF >PL THEN320 

310 GOTO 125 

320 A=C(4, 1) :B=C(5, 1) : X=104: F=4: GGSUB4005: C (4, 1 ) =A 

330 A=C (4,2): B=C ( 5 , 2 ) : X « X + 32 : GGSUB4005 : C ( 4 , 2 ) =A 

332 TT=C(4, 1)+C(4,2) 

335 IFC ( 1 , 1 ) =OANDC (2, 1 ) =OANDC (3, 1 ) =0THEN700 

340 CR=3:X=X+32 

350 TT=C ( 4 , 1 ) +C ( 4 , 2 ) +C ( 4 , 3 ) +C ( 4 , 4 ) +11 ( 4 , 5 ) : I F T T ) 2 1 THEN800 

360 IFTT>1BTHEN700 

370 I FTT > 1 6ANDRND < 1 ) > . 49THEN700 

375 IFCR-6THEN700 

380 G0SUB4000: C (4, CR) =A: CR=CR+1 : X*X+32e G0T0350 

500 BEEP : BL I NE ( , 1 70 ) - ( 255 , 1 9 1 ) , , BF 

510 IFM(F)=OTHENPRINT"You cant afford to buy ": FDRT-=-0T0500: NEXT: BLINE (0, 170) - (255 
, 191) , ,BF:G0T0130 

511 CURSOR 10, 170: PR I NT "How much more will you bet:" 
520 G0SUB3000 

550 B(F)=B(F)+T:M(F)=M(F)-T 

555 BLINE (0, 170) -(255, 191) , , BF 

560 BLINE (52, (F-l ) *40+12) - (80, (F-l ) *40+19) , , BF : CURSGR46, (F-l ) »40+l 2: PR I NTM (F ) : BL 

INE(36, <F~l)*40+20) - (80, (F-l)*40+28) , , BF : CURS0R30, (F-l ) * 40+20: PRINTB (F ) 
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570 B0T0200 

700 IFTT=21THENBLINE(0, 170) (255, t ? i ) , , BF: CURS0R20, i 70: COLOR 1 : PR I NT "Banker h»s b 

lackjack. ": FORI as lT04sFQRT* = 200T0330STEP10: SOUND 1 , T, ISiNEXTT, I :G0T0720 

710 BLINE (0, 170) -(253, 191) . , BF: CURS0R20, 1 70: CTJL0R1 : PRINT "Banker wi 11 slay with"; 

TT 

720 S0UND0:F=1 

725 IFC(F,5) >0THEN750 

730 IFC (F, 1 ) =0THEN750 

732 TL=C(F, 1)+C(F,2)+C(F,3)+C(F, 4) 

734 IFTL=21ANDTT<TLTHENCURS0R20, (F--1 ) *40+28: PRINT "BLACKJACK ": FORI «1 1TJ20: SOUND 1, 1 
000, 15:S0UND1,800, 15: SOUNDO: NEX T : M (F) =M (F) + (B(F>*3) : M (4) =M (4) -- (B(F) #2) : B0T0740 

735 I FTL >TTTHENCURS0R60 , ( F- 1 ) #40+28 : PR I NT " Won " : M ( F ) =M ( F ) + ( B ( F ) *2 ) : M < 4 ) «M ( 4 ) -B ( F ) 

736 I FTL< =TTTHENCURS0R60 , CF-1 ) *40+28 : PR I NT " Lost " : M ( 4 ) =M ( 4 ) +B ( F ) 

740 I FM ( 4 ) < OTHENM ( 4 ) =0 

741 BLINE (52, 132) -(80, 139) , , BF: CURSQR46, 132: PRINTM (4) : BLINE (36, CF-1 ) #40+20) - (80, 
CF-1) #40+27) , , BF 

742 BLINE(52, (F-l ) #40+12) - (80, (F-l ) *40+19) , , BF: CURS0R46, (F-l ) *40+12: PRINTM (F ) 

743 BEEP: IFM (4) =0THEN8500 
750 F=F+1: IFF>PLTHEN760 
755 G0T0725 

760 F0RF-0T0300: NEXT: BLINE (0, 170) -(255, 191) , , BFs CURSOR 108, 170: PRINT"! PRESS ANY 

KEY i " 

765 IFINKEY*=""THEN765 

770 BEEP:F0RF=1T05:F0RT=1T05:C(F,T)=0:NEXTT,F:F0RF=1T013:F0RT=1T04:PA(F,T)=0:NEX 

TT,F 

775 I FM ( 4 ) < 1 THEN8500 

780 F0RF=0T02: B (F+l ) =0: BLINE (0, F*40+28) - (84, F*40+36) , , BF: NEXT 

785 IFM (4) =8000THEN8700 

790 LINE (104,0) -(255, 191 ) , 1 1 , BF: COLOR 1 , 11, ( 104,0) -(255, 191) : BLINE ( 104, 0) - (255, 19 

1 ) , , BF 

795 G0T02U 



G0T03S0 

G0T0350 
G0T0350 
G0T0350 
G0T0350 
BF:CURS0R20, 170: C0L0R1 : PRINT"Banker is bust" 



800 IFC (4, 1 )=11THENC(4, 1)=1 

801 IFC(4,2)=11THENC(4,2)=1 

802 IFC(4,3)=11THENC(4,3)=1 

803 IFC(4,4)=11THENC W,4)=l 

804 IFC(4,5)=11THENC(4,5)=1 

809 BLINE (O, 170) -(255, 191) , 

810 F0RT=500T0110STEP- 10: SOUND 1,7, 15: NEXT 
820 TT=0:G0T0720 

1000 IFC(F, 1)=11THENC(F, 1)=1 :G0T0210 

1010 IFC(F,2)=1 1THENC(F,2)=1:G0T0210 

1 020 I FC ( F , 3 ) = 1 1 THENC ( F , 3 ) = 1 : G0T02 1 

1 030 I FC ( F , 4 ) = 1 1 THENC ( F , 4 ) = 1 : G0TG2 1 

1040 IFC(F,5)=11THENC(F,5)=1:GQT0210 

1 050 RESTORE 1 060 : FOR I = 1 TO 1 2 : READA , P : SOUNDS , A , : SOUNDS ,3,15: F0RT=240T0250STEPP+ 1 : 

0UT127,T:NEXTT, I 

1060 DATA 1760, .5, 1568, 1, 1760, .5, 1568, 1, 1760, .5, 1568, 1, 1397, 1, 1319, 1 , 1175, 1,9999 

9, . 5,880, . 2, 880, . 1 

1 070 SOUNDO : C ( F , 1 ) =0 : C0RS0R20 . ( F- 1 ) #40+28 : COLORS : PR I NT " BUST " : COLOR 1 

1080 BLINE (36, (F- 1 ) #40+20) - (80, (F-l )#40+27> , , BF: BLINE (52, 132) -(80, 139) , ,BF:M(4)= 

M(4)+B(F) :CURS0R46, 132: PRINTM ( 4 ) 

1085 BLINE (0, 170) -(255, 191) , , BF 

1090 F=F+1:CR=3: X=168: IFF>PLTHEN320 

1100 GOTO 125 

2000 COLOR 1,2, (X, 121)-(X+23, 153) : CURSOR X +6, 130: PRINTCHR* ( 17) ; "?" ; CHR* < 16) :BEEP1: 

BEEPO 

20 1 A= I NT ( RND ( 1 ) * 1 3 ) + 1 : B= I NT ( RND < 1 ) *4 ) + 1 a I FPA < A , B ) = 1 THEN20 1 

2020 PA(A,fcO=l 

2040 C(4,CR)=A:C(5,CR)=B 

2050 RETURN 

3000 BE*="" 

3010 Xl=210 

3020 IFINKEY* < >" "THEN3020 

3025 I$~INKEY* 

3026 I F I *=CHR* (13) THEN3 1 00 
3030 I F I $< " " OR I $ :. " 9 " THEN3025 • 

3040 BE*=BE*+I*:CURS0RX1, 170:PR1NI I*:BEEP: Xl«Xl+7: IFX 1=238THEN3100 

3060 G0T03020 

3 1 00 I F VAL ( BE* ) =OTHENBL I NE ( 1 70 , 1 70 ) - ( 200 , J. 78 ) , . Bh : G0T03000 

3110 T=VAL(BE$) : IFT<-M (F) THENRETURN 
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3 1 20 CURS0R2 10,1 80 : PR I NT " To much " : BEEP2 : FOR I ■ 1 TOSOO : NEX T : BL I NE ( 2 1 , 1 70 ) - ( 255 ,191 

> , ,BFs©0T03000 

4000 A= I NT ( RND ( 1 ) * 1 3 ) + 1 : B= I NT ( RND ( 1 ) *4 ) + 1 : I FPA ( A , B ) = 1 THEN4000 

4005 C=l: IFB=10RB=2THENO8 

4006 D$=CHR* (246) : IFB=2THEND*=CHR* (247) 

4007 IFB=3THEND«=CHR« (245) 

4008 I FB=4THEND*=CHR* ( 248 ) 

4010 PA(A,B)=1:C0L0RC, 15, (X, (F-l ) *40+l ) - ( X+23, (F-l)*40+33> 

4015 A$(1)="":A$(2)="":A$(3)="":A$(4)="" 

4016 IFF=4THENBLINE(X, (F-l ) *40+l )-( X+23, (F- 1 ) *40+33) , , BF 

4020 0NAG0T04200, 4210, 4220, 4230, 4240, 4250, 4260, 4270, 4280, 4290, 4300, 4310, 4320 
4030 CURSORX+2, (F-l ) *40+l : PRINTA* ( 1 ) : CURSORX+2, (F-l ) *40+9: PRINTA* (2) : CURSORX+2, ( 
F- 1 ) *40+ 1 7 : PR I NTA$ ( 3 ) : CURSOR X + 2 , (F-l ) *40+25 : PR I NT A$ ( 4 ) 
4035 IFF=4THENRETURN 

C(F,CR)=A: RETURN 

CURSORX+6, <F-1)*40+8:PRINTCHR*( 17) ; " A" : CURSORX+6, (F-l ) *40+20: PRINTD*; CHR* < 1 



4040 

4200 

6) 

4201 

4202 

42 1 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

8000 



S0UND3, F3, 9: S0UND1 , Fl , 9: F 
1 5 , 932 , 1 864 , 330 ,15, 784 , 1 5 



IFF=4THENA=1 1 : RETURN 

C(F,CR) =11: RETURN 

A*<2)=" "+D*:A*(4)=A$(2) : G0T04030 

A* (2)=" "+D$: A*(3)=A*(2) : A*(4)=A*(3) :G0T04030 

A* < 2 ) =D*+ " " +D* : A* ( 4 ) = A* ( 2 ) : G0T04030 

A*(2)=D*+" "+DS>: A*<3)=" "+D*: A* (4) =A* (2) : GGT04030 

A*(2)=D$+" "+D*:A*(3)=A*<2) :A*(4)=A*(2) : G0TG4030 

A* (2) =D*+" "+D*: A* (3) =D$+D$+D*: A* (4) =A* (2) : G0T0403O 

B*=D*+ " " +D* : A* ( 1 ) =B* : A* ( 2 ) =B* : A* ( 3 ) =B$ : A* ( 4 ) =B$ : G0TQ4030 

A* ( 1 ) =D*+ " " +D* : A* ( 2 ) =A* ( 1 ) : A* ( 3 ) =D$+D*+D* : A* ( 4 ) =A* ( 1 ) : G0T04030 

A*(1)=D*+" "+D*: A* (2) =D$+D*+D*: A$ (3) =A* (2) : A*(4>=A*(1) : G0T04030 

A*(l)=" J ":A*(3)=" "+D$: A=10: G0T04030 

A*<1)=" Q":A*(3>=" "+D*:A=10:G0T04030 

A*(l)=" K":A$(3)=" "+D*:A=10:G0T04030 

RESTDRE80 1 : FOR I = 1 T023 : READF2 , F3 , F 1 , D : S0UND2 , F2 , 9 : 
0RDE=1T0D/5:NEXTDE, I 

8010 DATA 932, 1864, 165,30,784, 1568,311, 15,932, 1864,311, 
68,330, 15,932, 1864,330, 15,784, 1568,330, 15 

8020 DATA 698, 1397,349, 15,932, 1864,349, 15, 1175,2350,349, 15, 1397,2794,349, 15, 1397 
,2794, 175, 15, 1175,2350, 175, 15 

8030 DATA 932, 1864, 175, 15,698, 1397, 175, 15,784, 1586,262,240,932, 1864,262,240, 1175 
,2350, 175, 120, 1047,2094, 175,240,932, 1864, 175, 120,932, 1864,233,320,932, 1864, 175,3 
20 , 932 , 1 864 ,117, 720 
8040 SOUNDO : M ( F ) =M ( F ) + ( B ( F ) *4 ) : M ( 4 ) =M < 4 > - ( B < F ) *3 ) 

8045 IFM(4X0THENM(4)=0 

8046 BLINE(0, 170) -(255, 191) , , BF 

8050 C0L0R1:BLINE(52, 132) -(80, 139) , , BF: CURS0R46, 132: PR INT M (4) :BLINE(36, (F-l)*40+ 

20) -(80, <F-l>*40+27> , , BF 

8060 BL I NE ( 52 , ( F- 1 ) *40+ 1 2 ) - ( 80 , ( F- 1 ) *40+ 1 9 ) , , BF : CURB0R46 , ( F- 1 ) *40+ 1 2 : PR I NTM ( F ) 

8065 I FM ( 4) =0THEN8500 

8070 CR-3: F=F+1 : X=168: IFF>PLTHEN300 

8080 GOTO 125 

8500 FORI =1T020:F0RF=500T01000STEP 100: SOUND 1 ,F, 15:NEXTF, I 

8505 SOUNDO 

8510 SCREEN1, 1:CLS: PRINT" Well done. You managed to make the 



banker go bankru 



pt.You win. ":G0T08720 

8700 SCREEN 1 , 1 : CLS: PRINT"********************************#****#*#******#**** G 

AME OVER ***********#*******#*******#***********************'' 

8710 PRINTS PR INT "Tough luck, the banker won." 

8720 PRINT:PRINT"Try again (y/n) ?" 

8730 I F I NKEY*= " Y " THENCALL&H6C37 

8740 IFINKEY*="N"THENEND 

8750 G0T08730 

9000 SCREEN2, 2: COLOR 1 , 15, , 1 : CLS 

9005 CUR80R2Q, lOi PRINT" Wei come to the game o-f 

,20) -(178, 20) ,8 

90 1 COLOR 1 : CI JRS0R7O , 40 : PR I NTCHR* ( 1 7 ) 

COLORS, 11, (64, 36) -(183, 50) : LINE (64, 36) -( 183, 50) ,3,B 

COLORS: CURS0R20, 180: PR I NTCHR* ( 160) ; " GRANDSTAND 



: LINE (15, 18) -(180, 18) ,8: LINE (17 



"BLACKJACK" ; CHR* (16) 



9020 
9030 



BV S. COUPE" 



9040 COLOR 1 : CURS0R50, 90: PR I NT "Do 
9050 I F I NKEY«~ " Y " THEN9200 
9060 I F I NKE Y*= " N " THEN9 1 00 
9070 G0T09050 



you want instructions 
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s name ? (max 10 
'SOME TWIT" 



letters) 



a card game where you have to get 
that is Blackjack. I-f you get over 



as close to 
21 then 



9100 BEEP: C:URS0R40, 120: PRINT"How many players ?(l-3) 

9110 I *= I NKE Y* : I F I $ < " 1 " OR I * > " 3 " THEN9 1 1 

9120 PL=VALU*) 

9130 SCREEN 1, 1:CLS: COLOR 1, 11 

9 1 40 F0RF= 1 TOPL : PR I NT " PI ayer " ; F ; 

9 1 50 I NPUTN* : I FLEN ( N* ) > 1 0THENN*= 

9155 P*<F)=N* 

9160 NEXT 

9170 COLOR 1 , 3: CLS: G0T09500 

9200 BEEP : BL I NE ( 50 , 90 ) - ( 2 1 , 1 00 ) 

9210 CURSOR 10, 60: PRINT" This is 

21 as you can. I-f you get 21 then 

you are bust. " 
9220 PRINT* PRINT" All players are playing against the banker , played by the 
SEGA. You must try and make the banker go bankrupt. To win a round you must have 

a higher score than the banker. I-f you have the same you lose." 
9230 CURSOR90, 160: PRINT "PRESS ANY KEY" : IFINKEY*=" "THEN9230 
9240 BEEP : BL I NE < , 60 ) - < 255 , 1 70 ) , , BF 

9250 CURSGR10, 60: PRINT" I-f you get an ace it can be counted as 1 or 1 1 . Kings, Quee 
ns and jacks are all 10s. ": PRINT: PRINT" I-f you get 5 cards that add to 21 or 

under you win 3 times your bet." 
9260 PRINT: PRINT" A blackjack will win you 2 times your bet, as 
ker hasn't got 21 ! " 

9270 CURS0R90, 160: PRINT"PRESS ANY KEY" : IFINKEY«=" "THEN9270 
9280 BEEP:BLINE(0,60)-(255, 170) , , BF 

9290 CURS0R10, 60: PRINT" When given the chance you can stay, buy 
eans you don't want any more cards. Buy means you want to bet 
ney and get another card." 

9300 PRINT" Twist means you get another card but don't want 
re money. " :G0T09100 
9400 STOP 

9500 DIMPA(13,4) ,C(5,5) 

9505 M ( 1 ) = 1 000 : M ( 2 ) = 1 000 : M (.3 ) = 1 000 : M ( 4 ) =5000 

95 1 SCREEN2 , 2 : COLOR 1 , 1 1 , , 5 : CLS : COLOR 1 , 1 5 , ( , ) - < 95 , 1 62 ) : L I NE ( , ) - ( 95 , 1 62 ) , 1 , B 
9520 FORF=OT0160STEP40:LINE(0,F)-(95,F+2) , ,B:NEXT 

9530 X «4 : FORF = 1 TOPL : CURSOR 1 , X : PR I NTP* < F ) : CURSOR 1 , X +8 : PR I NT " Money : * 1 000 " : CURSOR 
10, X+16:PRINT"Bet: ": X=X+40: NEXT 

9540 CURSOR 10, 124: PRINT" The Banker. ".-CURSORIO, 132: PRINT "Money 1*5000" 
9550 RETURN 



long as the ban 



or twist. Stay m 
some more mo 

to bet any mo 




Wmmm% 




ERROR MESSAGES 



Cont. from p. 25 

than that used with the DIM statement 
in the beginning of the program. (What 
a mouth full) To correct this increase the 
value of the number inside the brackets 
for that array where it is DIMed. If the 
subscript (the thing inside the brackets) 
is a variable you will have to check back 
through the program looking for the 
lines that use that variable. Check these 
lines as if there is an error here it will 
carry on through and muck the pro- 
gram up here and later. 

REDIM'D ARRAY ERROR: You have 
DIMensioned an array twice (Heinous 
crime! Smack Smack . . . ) This will pro- 
bably happen when you are running a 
program for a second time. To correct 



this place an ERASE before the first of 
the DIM statements in the program. 
Also list the offending line in case you 
have made a typing error. (If your 
anything like me this is more than 
likely!) 

SYSTEM ERROR: You have really 
done it now! This EM's is very uncom- 
mon. The only way to correct them is 
to turn the machine off as you will find 
that the computer will not function pro- 
perly. If you are using a Disk Drive this 
EM can be caused by a power surge. 
Try running your disk drive of a single 
wall plug instead or having all or your 
computer gear on double adaptors or 
a single junction box. 



The only way to prevent errors from 
occuring is to be careful. If you are 
creating your own programs make a 
plan of what you intend to do and 
which variables and lines you are go- 
ing to use before you start. Also when 
performing modifications be sure to 
erase all the old lines. In last months 
magazine we showed you how to 
redefine the Zero. Type in the follow- 
ing to redefine the capital i: 

PATTERN C073, "F82020202020 
F800" 

More on EM's next issue. 
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SOFTWARE! 




CARTRIDGES PRICES 

oBASIC LEVEL 1MB $175 

DMUSIC $125 

□ N/SUB $39.95 

DSAFARI HUNTING $39.95 

□ BORDER LINE $39 95 

□ CONGO BONGO $39 95 

□ YAMATO $39 95 

□ STAR JACKER $39 95 

□ CHAMPION TENNIS $39.95 

□ MONACO GP $39.95 

□ CHAMPION BASEBALL $39.95 

□ SINBAD MYSTERY $39 95 

□ VIDEO FLIPPER $39.95 

□ PACAR $39.95 

□ POP FLAMER $39 95 

□ CHAMPION GOLF $49 95 

□ EXERION $49.95 

□ SAFARI RACE $49 95 

□ LODE RUNNER $49.95 

□ BOXING $54 95 

□ ORGUS $49.95 

□ FLICKY $59.95 

HOME/PERSONAL/FINANCE 

CASSETTES PRICE 

□ FILE SYSTEM $19.95 

□ CHEQUE BOOK RECONCILIATION .... $19.95 

□ LOAN & MORTGAGE CALCULATION . . $19 95 

□ ACCOUNTS RECEIVABLE $30.00 

□ ACCOUNTS PAYABLE $30.00 

□ 32K WORD PROCESSOR $30.00 

□ PERSONAL RECORD KEEPER $30 00 

□ 16K EASY WRITER $19.95 




•32K COMPUTER $495 
•DISK DRIVE $995 
•JOYSTICK (NEW) $45.00 
• DATASETTE $89.95 
•PRINTER $495 



GAME CASSETTES PRICE 

□ TOWERS OF HANOI $19.95 

□ HANGMAN $19.95 

□ CITY-LANDER $19.95 

□ CUBE-IT $30.00 

tiBUGALOO $19.95 

□ LASER BLAST $19.95 

□ MUNCHMAN $30.00 

□ ENTERPRISE ESCAPE $19.95 

□ MARSMOBILE $19.95 

□ MARS ADVENTURER $19 95 

□ EMPIRE $19.95 

□ KALAH $19.95 

□ CHESS $19.95 

□ DEATH SATELLITE $19 95 

□ BIT BYTE $1995 

□ THE HOUSE $30.00 

□ THE PYRAMID $19.95 

□ CODE BREAKER $19.95 

□ BACKGAMMON $19 95 

□ LUMBER JACK $19.95 

□ TRAMPMAN $19.95 

□ SEGA GAMES PACK I $19.95 

EDUCATIONAL CASSETTES PRICE 

□ ROCKET MATHS $19.95 

□ LEARNING ALPHABET $19.95 

□ WATCH ME DRAW $19.95 

□ SPELLING $19.95 

□ ADDITION $19.95 

□ SUBTRACTION $19.95 

□ MULTIPLICATION $19 95 

□ SPRITE EDITOR $19 95 

□ MUSIC EDITOR $19.95 

□ TYPING TUTOR $19.95 

□ LEARNING TO COUNT $19.95 

□ SHAPE & COLOUR QUIZ $19.95 

□ MUSIC CARTRIDGE DEMONSTRATOR $19.95 

□ SEGA GRAPHIC DESIGNER $19.95 

□ GEOGRAPHY QUIZ I $19.95 

□ GEOGRAPHY QUIZ II $19.95 

□ MATHS HANG UP $19.95 



WRITE FOR OUR 
ICOMPLETE PRICE LIST 



AMSTRAD CPC4B4 




•GREEN SCREEN $995 
•COLOUR SCREEN $1395 
•DISK DRIVE $795 
•2nd DISK DRIVE $595 

YOUR SEGA COMPUTER IS 
WELCOME AS A TRADE-IN ON 
THE NEW AMSTRAD COMPUTER! 



PHONE AK 656-002 

(N.Z.) P.O. Box 26074 AUCKLAND 3 
L TD CORNER MANUKAU & PAH RDS - EPSOM 



I ENCLOSE PAYMENT: 

□ CASH QCHEQUE ^POSTAL ORDER ClVISA uBANKCARD 



NAME 



ADDRESS 



CREDIT CARD NUMBER 



.EXP DATE 



SOFTWARE TITLE(S) REQUESTED 



PRICE 



□ AMSTRAD GREEN SCREEN @$995 

□ AMSTRAD COLOUR SCREEN@$1395 

□ AMSTRAD DISK DRIVE@$795 

□ AMSTRAD (SECOND) DISK DRIVE @S595 



□ SEGA 32K COMPUTER $495 

□ SEGA DISK DRIVE $995 
□JOYSTICK (NEW) $45.00 

□ SEGA PRINTER $495 

□ SEGA DATASETTE S89.95 



IF YOU DO NOT WISHTO OESTROY THISMAGAZINE BYTEARING OUTTHE COUPON. SEND ANY FACSIMILE OF THIS 
COUPON WITH ALL THE NECESSARY INFORMATION TO MANUKAU COMPUTERS BE SURE TO INCLUDE YOUR 
CREDIT CARD NUMBER AND EXPIRY DATE FOR VISA & BANKCARD PURCHASES 
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Treddie 



This is another of those graphic demonstrations that we 
like to fill the magazine with. For all you Queen fans here 
is Freddie Mercury. The first program draws the picture us- 
ing sprite, whereas the second program uses redefined 
characters to get the same result. You will notice the first pro- 
gram using sprites is actually faster drawing the face on the 
screen. 




10 REM * FREDDIE # ^ nnT 

20 RESTORE 40 

30 FDR 1=0 TO 76: READ X*: PATTERN S#I,X*:NEXT 

40 DATA 00, 010103030703070F, 0000030F3F7F7FFF, FFFFFFFFFFFFFFFF, 007FFFFFFFFFFFFF, F 

FFFFFFFFFFFFFFF , FFFFFFFFFFFFFFFF , FFFFFFFFFFFFFFFF , F8FEFFFFFFFFFFFF , FFFFFFFFFFFFF 

FFF, 0000F2FAFFFFFFFF, FFFFFFFFFFFFFFFF;, 000080F0FBE0FCF0, FFFFFFFFFFFFFFFF, 00, 0O0OC 

00080C0E0F0 

50 DATA 0F0F1F1F3F7FFFFF, BF3F7F7FFFFFFFFF, FFFFFFFFFFFFFFFF , FFFFFFF 18080, FF -FFFFFF 

FFFFFFFF, FFFFFFC10O01, FFFFFFFFFFFFFFFF, FFFFFFFF7FFF3FFF, FFFFFFFFFFFFFFFF, FFFFFFF 

FFFFFFFFC, FFFFFFFFFFFFFFFF, FFFFFFFFFFFCC0, FFFFFFFFFFFFFFFF, FFFFFFFFEP030303,F8FC 

FEFEFFFEFEFE 

60 DATA FEFEFFFFFFFFFFFF, FFFFFFFFFEFFFEFF, FFFF7E7C7G3t:i CI E, 0080000000800080, 00, 

303010101010007, 0303, FFFFFEFEFEFFFFFF, FEFEFEFEFCFC7880, 1E1E1E1808080808, 00, 080F0 

30001 , 00, 00F0FF7FFF3E1C08, 00, 0000C0F0F8FC7C04, 00, 000000030F0F0F08, 00, 000F3FFFF"FF 

FEF06,00 » 

70 DATA 18F8F0C080, 00, F0F0707060602020, 00, 00, 0000000007 1F1F3F, 00, 00000002FFFFFFF 

F, 00, 000000 10FFFFFFFF, 00, 0000000080C0E0F0, 3F3F7F7810, 0000000080402010, FFFFFFFF, 

0, FFFFFFFF01 , 00, F0F8FCFE9C, 00, 0B0C0603, 00, 00003FFF, 00, OOFOFEFB 

80 SCREEN2 , 2 : CLS : MAG 1 

90 FDR J=0 TD 19: READX, Y: SPRITE J , ( X , Y) , J*4, 1 : NEXT 

100 DATA 96,42, 112,42, 128,42, 144,42,96,58, 112,58, 128,58, 144,58,96,74, 144, 74,96,9 

0, 112,90, 128,90, 144,89, 112, 106, 128, 106, 112, 122, 128, 122, 112, 138, 128, 138 

110 LINE (143,95)- (146,97) , 1 

120 LINE (95, 74) -(95, 80) , 1 

130 GOTO 130 



10 REM * FREDDIE * 

20 RESTORE 40 

30 FOR 1=128 TD 207: READ X*: PATTERN C#I,X*:NEXT 

40 DATA 00, 0101 03030703070F, 0000030F3F7F7FFF, FFFFFFFFFFFFFFFF, 007FFFFFFFFFFFFF, F 

FFFFFFFFFFFFFFF, FFFFFFFFFFFFFFFF, FFFFFFFFFFFFFFFF, F8FEFFFFFFFFFFFF , FFFFFFFFFFFFF 

FFF, 0000F2FAFFFFFFFF, FFFFFFFFFFFFFFFF, 000080F0F8E0FCF0, FFFFFFFFFFFFFFFF, 00, 0000C 

00080C0E0F0 

50 DATA OFOF IF 1F3F7FFFFF, BF3F7F7FFFFFFFFF, FFFFFFFFFFFFFFFF, FFFFFFF 18080, FFFFFFFF 

FFFFFFFF, FFFFFFC 10001 , FFFFFFFFFFFFFFFF, FFFFFFFF7FFF3FFF, FFFFFFFFFFFFFFFF, FFFFFFF 

FFFFFFFFC, FFFFFFFFFFFFFFFF, FFFFFFFFFFFFFCCO, FFFFFFFFFFFFFFFF, FFFFFFFFEB030303, F8 

FCFEFEFFFEFEFE 

60 DATA FEFEFFFFFFFFFFFF, FFFFFFFFFEFFFEFF, FFFF7E7C7C3C1C IE, 0080000000800080, 00, 

303010101010007, 0303, FFFFFEFEFEFFFFFF, FEFEFEFEFCFC7880, IE IE IE 1808080808, 00, 080F0 

30001 , 00, 00F0FF7FFF3E 1C08, 00, 0000C0F0FSFC7C04 , 00, 000000030F0F0F08, 00, 000F3FFFFFF 

FEF06,00 

70 DATA 1 8F8F0C080 , 00 , F0F0707060602020 , 00 , 00 , 0000000007 1 F 1 F3F , 00 , 00000002FFFFFFF 

F, 00, 0000001 OFFFFFFFF, 00, 0000000080COEOFO, 3F3F7F7810, 0000000080402010, FFFFFFFF, 

0, FFFFFFFF01 , 00, F0F8FCFE9C, 00, 080C0603, 00, 00003FFF, 00, 00F0FEF8, 00, 00, 00 

80 SCREEN 2, 2: CLS: COLOR 1 

90 FOR J=128 TO 204 STEP 4 -.READ X,Y: CURSOR X,Y: PRINT CHR$ (J ): CURSOR X,Y+8: PRINT 

CHR*(J+1) : CURSOR X+8,Y: PRINT CHR* (J+2) : CURSOR X+8, Y+8: PRINT CHR$ ( J+3) : NEXT 

100 DATA 96,42, 112,42, 128,42, 144, 42, 96, 58, 1 12, 58, 128,58, 1 44, 58, 96, 74 , 1 44, 74, 96, 9 

0, 112,90, 128,90,-144,89, 112, 106, 128, 106, 112, 122, 128, 122, 112, 138, 128, 138 

110 LINE (143,95)-(146,97) , 1 

120 LINE (95,74)-<95,80) , 1 

130 GOTO 130 
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1 o 
so 
30 

-*o 
so 

SO 

90 
1 00 
1 1 o 
1 20 
1 30 
1 -*o 
1 so 

1 <£»0 

1 70 

1 SO 

200 

2 1 o 

220 

230 
2 -40 

250 
260 
270 
280 

3 OO 

3 1 O 
32 O 

330 
3-^-0 
3SO 
3£»0 
370 
3Q O 
3S>0 

«*oo 

-* ± O 

-q-so 
-4- 30 

^-*o 
-*so 
^<£*o 

■£±~7<Z> 

^so 
^<po 

§00 
s 1 o 
sso 



MAG 1 
REM 

ratt 

RATT 

r-att 

RATT 

ratt 
ratt 

PATT 

rat 

REM 
RAT 

r-at 

RAT 

r-at 

SCR 
COL 

r-at 
r-at 

RAT 
R"AT 
EOR 

I rr 

I RZ 



= BOTO 
M I SS I 

erms** 

ERMS4* 
E R M S 4* 
ERMS** 
E R M S ** 
ERNS# 
ERMS=H= 
"TERMS 
EXR-I— 
TERMS 
TERMS 
TERMS 
TERNS 
EEM2 - 



Q 1 O 



O 

1 



1 O 

1 o 

1 O 

1 o 

^ 1 

OS 

=t#2ss ,. 

**2S3, 
=H=2S^ „ 

:z = cls 



!• " O 

, ■■ 1 

I OM 



0101010 

OZO^OC 1 
S O S O SOS 
£> 2 O 302 
A O S O S O D 
C O A O D O ^ 

o 12 o 2 o s o 

3SS0E«02 

G 3 O C E* -<3- 
S>OSO£>S 
C ^ Ec O £=> D 

o 1 osos 



1 0303030:7 ■■ 
-^-OZO^OQOD " 
OCOCOCOEO " 
QE020 1 OSO " 

4A6D7F39" 
03030505 "" 
BSS^EE^C" 
OCOCOAOAO " 

22486088E0 
50AC3 1 4C03 
458A5205O3 
2A844C3GCA 



1 *? 1 > 



O R ~Z 9 5 g, (0,0)-(25E 
TERMS=t*0 , " cl> 1 030S09 1 333 1 R4R " 
TERMS** 1 .. " ^3EZEOROREc^RE^OE " 
TERMS**2 5. '■ B0C0A090CSCCF8F2 " 
TERMS**3.. " C2E7B 7 BEDRRSS^ ZO " 
T—0T02SS 

MD C 1 > > - STHEMSL_=IMT CRMD < 1 > *«- 3 > 
> 1 -Q- O T H E M 2 -** O 



1 SO > „ 1 
, 191 > - - 



1 = MEXT 

1 



R-SET C T , Z > , -7 

MEXT 

l_ I ME (O, 1 SO > — - < 2S~ 

PA I MT (O p 1 SO > , -7 

BL I ME < O 9 1 SO > — C SSS ,1913 

M — » — 2 O a S=l 

EORV = 1 SOTO 1 56STEP8 

S = S-c-V— 1 SO 

I— I ME C O , S-+- V > — < 1ST" .. 1 SO > 

X=IMT CRMD < 1 > **r2SS> 

l_ I ME CO, 1 SO > — < SSS , 1 SO > 

F0RR«20T0 1 FOSTER' 1 O 

l_ I ME < 1 2 "7 „ 1 SO > — < R + M , 1 «5> 1 > , 1 

M = M-»- 1 O = ME X T 

M*-20 = S= 1 

RORV/ = 1 SOTO 1 SISTER'S 

s = s-*-\; — 1 SO 

1_ I ME <SSS, S-f-S/' > — C 127, 1 SO > , 1 = MEXT 

Y = 3 = ST=172 

RORO= lS^TOl^l 

ST = ST-«- 1 

I FQ< 1 90THENTR« 1 S«^> 

I FQ > 1 90THENTR«ST 

l= t tsim i IT p m > — < TR „ 13 > . 1 

L_ I ME (191,Q)-( ST-+-20 * G! > 

MEXT 
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5-q-o i_ i me: c i :?-<£> .. 1 «=? 1 > — c 1 <^-* , 1 «p 1 > , 1 

3SO S R R I T E 3 1, (ISO, 1 <£* <I> > , LOO, 15=SRRITE 
, < 1 50 , ±~7<E=> ,40, IS 

5 5 5 V = -* r TIME*= n OO: O O s O O ' ' 

5 <£> O E' L_ = S T I C K < 1 } 

S70 IFPL = 3THENN=1 s A = r SOUNDS, O, 15 

5 S O I FPL_ = y THENN = — 1 = A = O = SOUNDS-, O , 15 

S90 I EE-L = 5THENB = B-i- 1 

£»00 I FPL= 1 THENB = B- 1 

610 I F"B< OTHENSOUND^ , S 9 10 

<£>SO IFB>OTHENSOUNDO 

<^>30 I ET I MEi*i > " OO s OO = 30 " THEN^^O 



O 



«£>-*o a = a-*-n/ i o = x 



As B = B-*-- 1 = Y = Y-*-B 



650 S E' R I T E O , < X ., Y > , O , 15 

<£><£*0 IFY<2THEN690 

£>:70 I FY > 1 8DTHEN6S5 

«£>^5 IFX<40RX>245THEN690 

<£>QO G0T0560 

<£»E*5 IFX<1750RX>195THEN690 

<£>Q<£> G0T05<£>0 

<£>*^0 SE'R I TE O , < X , Y > „ SSS , O 

7 00 DUT127 !1 228 

37 i o eort = :z^«:>to;255 = out i s^ , t 

720 FORR= 1 "TO 1 5 = NEXTR , T 

7-30 RRINT '" DEAD- - - - " = EOR DE=1 TO 300 

s NEXT DE 

~y^o goto oio 

•"50 SCREEN 1 „ 1 = CLS 

7 «£>0 PR I NT " CONGRATULAT I ONS ! ! 

"7 "7 O PRINT" — You ha.ve saved L l~» e w o r~ 1 ti " 

"700 F="R I NT = E"R I NT " ERESS EIRE! BUTTON TO E'LA 

Y " 

~Z^9<-J> IESTRIG < 1 > = OTMENy r S>C> 

800 GOTOIO 

BIO S C R E E N 1 , 1 = CLB 

S:20 E-R I NT "■ URGENT MESSAGE- ------ DATE 1 <? / 

1 3 / 13 O <£> O " 

G30 RRINT "AN EXCAVATION IN THE GREAT NOR 

TMERN " 

S-^O E-R I NT " DESERT MAS TRIGGERED AN ANC I EN 

T 20TM" 

Q50 RR I NT " CENTURY NUCLEAR MISSILE- IT IS 

DUE " 
G<£>0 E-R I NT "TO LAUNCM IN 30 SECONDS- " 
B70 E-R I NT "IN ORDER TO DETONATE THE M I SS I 
l_E AND " 
SQO E-R I NT "SAVE TME EARTH,. YOU MUST ENTER 



E» 90 E" R I N T 

*POO RRINT" _ - _ GOOD LUCK ! " 

«P 1 O PR I NT B PR I NT " PRESS EIRE BUTTON TO E"L_A 

Y " 

«5>2SO IESTRIG < 1 > < >OTHEN20 

S>30 GOTOS^^O 

^^O SCREEN 1, 1 = CLS = E'R I NT " THE 30 SECONDS I 

S UE- ! " 

«^>50 E-RINT"RITY ABOUT TME EARTH" 

S><BO E"R I NT = E'R I NT " E-RESS EIRE BUTTON TO RLA 

Y " 

^■70 IESTRIG < 1 > =0THEN < ^"70 

980 GOTOIC* 



cygpc? 
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FLEXI - GRAPH 

This program lets you zoom in on any part of a graph you wish to see — this program is invaluable to anyone like 
myself who studies mathematics. 

Before operating this program make sure you write in an equation in line 310. You can write in any equation from 
the simple to the complex: 

Try writing these: 

= ox Y = 2 X 

y 7 = cos (x) Y = cos (X) 

y = lA Y * 1/X 

When you are required to input x min and x max this means from which values of x to which, do you wish to see, 
similarly y. 

One rule: You must have the origin (0,0) where the axes cross in the field of view so as you are able to see where 
you are relative to the scale on the axes. Therefore you cannot have two positive x values for max and min but you 
can have one zero or one negative and one positive, the y values must also be done in the same way. 

10 INPUT "DOMAIN X MIN...";A 

20 INPUT "DOMAIN X MAX...";B 

30 INPUT "DOMAIN Y MAX...";C 

40 D=C-(B-A) : J=B-A: J>C-D 

50 SCREEN 2,2:CLS 

60 PRINT " Flexigraph. . . " 

70 COLOR 3,3, (0,0) -(255, 191 ) ,3 

80 IF A>B GOTO 10 

90 IF A<0 AND B<0 GOTO 10 

100 IF A+B=0 THEN 130 

110 M=A/(A+B) :N=B/ CA+B) 

120 GOTO 140 

130 M=1:N=1 

140 G= (220*ABS(M)+40*ABS(N) ) / ( ABS (M) +ABS (N) ) 

150 LINE (G, 10)-(G, 190) , 1 

160 CURSOR G, 10: PRINT C 

170 CURSOR G+l, 184: PRINT D 

180 IF 00 AND D>0 GOTO 10 

190 IF C<0 AND D<0 GOTO 10 

200 IF C+D-0 GOTO 230 

210 R-C/ (C+D) :S=D/ (C+D) 

220 GOTO 240 

230 R=1:S=1 

240 H=(190*ABS(R)+10*ABS(S) ) / < ABS (R) +ABS <S) ) 

250 LINE (40,H)-<220,H),1 

260 CURSOR G-3,H"3:PRINT"0" 

270 IF AOO THEN CURSOR 40- ( INT (LGT ( ABS ( A) ) +1 ) *12) , H-8: PRINT A 

280 CURSOR 220, H~8: PRINT B 

290 POSITION (G,H) ,0, 1 : T=0 

300 FOR X=A TO B STEP J/ 180 

310 IF X»0 GOTO 360 

320 REM *********■*******•**•-*■**•■***■* 

* Put your FORMULA here * 
a*********************- *-** 

330 IF Y>C OR Y<D GOTO 360 

340 IF T=0 THEN PSET ( X*180/ J , Y*180/ I ) , 1 : T=l : GOTO 360 

350 LINE -<X*180/J,Y*180/I) , 1 

360 NEXT X 

370 GOTO 370 
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GLOSSARY 



Accessory Devices • additional equip- 
ment which attaches to the computer and 
extends its functions and capabilities. In- 
cluded are preprogrammed cartridges" 
and units which send, receive or store 
computer data, such as printers and disks. 
These are often called peripherals. 

Array - A collection of numeric or string 
variables, arranged in a list or matrix for 
processing by the computer. Each ele- 
ment in an array is referenced by a 
subscript* describing its position in the list 

ASCII - The American Standard Code 
for Information Interchange, the code 
structure used internally in most personal 
computers to represent letters, numbers, 
and special characters. 

BASIC - an easy-to-use popular pro- 
gramming language used in most per- 
sonal computers. The word BASIC is an 
acronym for "Beginners AH purpose Sym- 
bolic Instruction Code." 

Baud - commonly used to refer to bits per 
second. 

Binary - a number system based on two 
digits, and 1. The internal language and 
operations of the computer are based on 
the binary system. 

Branch - a departure from the sequen- 
tial performance of program statements. 
An unconditional branch causes the com- 
puter to jump to a specified program line 
every time the branching statement is en- 
countered. A conditional branch transfers 
program control based on the result of 
some arithmetic or logical operation. 

Breakpoint - a point in the program 
specified by the STOP command where 
program execution can be suspended. 



During a breakpoint, you can perform 
operations to help you to locate program 
errors. Program execution can be resum- 
ed with a CONT command, unless editing 
took place while the program was 
stopped. 

Bug - a hardware defect or programm- 
ing error which causes the intended 
operation to be performed incorrectly. 

Byte - a string binary* digits (bits) treated 
as a unit, often representing one data 
character*. The computer's memory 
capacity is often expressed as the number 
of bytes available. For example, a com- 
puter with 16K bytes of memory has 
about 16,000 bytes available for storing 
programs and data. 

Cartridges - preprogrammed ROM" 
modules which are easily inserted in the 
SEGA computer to extend its capabilities. 

Character - a letter, number, punctua- 
tion symbol, or special graphics symbol. 

Command - an instruction which the 
computer performs immediately. Com 
mands are entered with no preceding line 
number. 

Concatenation - linking two or more 
strings* to make a longer string. The " -I- " 
is the concatenation operator. 

Constant - a specific numeric or string* 
value. A numeric constant is any real 
number such as 1.2 or -9054. A string 
constant is any combination of up to 248 
characters enclosed in quotes, such as 
"HELLO THERE" or "275 FIRST ST." 

Cursor - a symbol which indicates where 
the next character* will appear on the 
screen when you press a key. 



Data - basic elements of information 
which are processed or produced by the 
computer. 

Default - a standard character or value 
which the computer assumes if certain 
specifications are omitted within a 
statement* or a program*. 

Device - (see Accessory Devices) 

Disk - a mass storage device capable of 
random and sequential access. 

Display - (noun) the video screen; (verb) 
to cause characters to appear on the 
screen. 

Execute - to run a program; to perform 
the task specified by a statement* or 
command* . 

Exponent - a number indicating the 
power to which a number or expression* 
is to be raised; usually written at the right 
and above the number. For example, 2 
= 2x2x2x2x2x2x2x2x. In SEGA BASIC 
the exponent is entered following the let- 
ter "E" in scientific notation* . For exam- 
ple, 2 = 2 8;1.3 x 10=1.3E25. 

Expression - a combination of constants, 
variables, and operators which can be 
evaluated to a single result. Included are 
numeric, string, and relational 
expressions. 

File - a collection of related data records 
stored on a device; also used inter- 
changeably with device' for input/output 
equipment which cannot use multiple 
files, such as a line printer. 

Function - a feature which allows you 
to specify as "single" operations a varie- 
ty of procedures, each of which actually 
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contains a number of steps; for example, 
a procedure to produce the square root 
via a simple reference name. 

Graphics - visual constructions on the 
screen, such as graphs, patterns, and 
drawings, both stationary and animated. 
SEGA BASIC has build-in subprograms 
which provide easy to-use colour graphic 
capabilities. 

Hardware - the various devices which 
comprise a computer system, including 
memory, the keyboard, the screen, disk 
drives, line printers, etc. 

Hertz(HZ) - a unit of frequency. One 
Hertz = one cycle per second 

Hexadecimal - a base .16 number 
system using 16 symbols. 0.9 and A-F. 
It is used as a convenient "shorthand" 
way to express binary* code. For exam- 
pie. 1010 in binary = A in hexadecimal. 
11111111= FF. Hexadecimal is used in 
constructing patterns for graphics 
characters in the PATTERN subprogram. 

Increment - a positive or negative value 
which consistently modifies a variable*. 

Input - (noun) data * to be placed in com- 
puter memory; (verb) the process of 
transferring data into memory. 

Input Line - the amount of data ' which 
can be entered at one time. In SEGA 
BASIC, this is 248 characters. 

Internal date-format - data* in the 
form used directly by the computer. In- 
ternal numeric data is 8 bytes* long plus 
1 byte which specifies the length. The 
length for internal string data is one byte 
per character in the string* plus one 
length-byte. 

Integer - a whole number, either 
positive, negative or zero. 

I/O • Input/Output; usually refers to a 
device function. I/O is used for com- 
munication between the computer and 
other devices (e.g. keyboard, disk) 

Iteration - the technique of repeating a 
group of program statements, one repeti- 
tion of such a group. See Loop. 

Line - see input line, print line, or pro- 
gram line. 

Loop - a group of consecutive program 
lines which are repeatedly performed, 
usually a specified number of times. 

Mantissa - the base number portion of 
a number expressed in scientific 
notation * . In 3.264E + 4, the mantissa is 
3.264. 

Mass Storage Device - an accessory 
device * , such as a cassette recorder or 
disk drive, which stores programs and/or 
data* for later use by the computer. This 
information is usually recorded in a for- 
mat readable by the computer, not 
people. 

Memory - see RAM, and ROM, and 
mass storage device. 



Noise - various sounds which can be us- 
ed to produce interesting sound effects. 
A noise, rather than a tone, is generated 
by the SOUND subprogram' when com- 
mands 4 and 5 are specified. 

Null String - a string' which contains no 
characters and has zero length. 

Number Mode - the mode assumed by 
the computer when it is automatically 
generating program line* numbers for 
entering or changing statements. 

Operator • a symbol used in calculations 
(numeric operators) or in relationship 
comparisons (relational operators). The 
numeric operators are +,-,',/,. The rela- 
tional operators are , ,= , =,-,= . =, = 

Overflow - the condition which occurs 
when a rounded value greater than 
9.9999999999999E + 99 or less than 
-9.9999999999999E-99 is entered or 
computed. When this happens, a warn 
ing is displayed, and the program * stops. 

Output - (noun) information supplied by 
the computer; (verb) the process of 
transferring information from the com- 
puter's memory onto a device, such as a 
screen, line printer, or mass storage 
device* 

Parameter - any of a set of values that 
determine or affect the output of a 
statement* or function*. 

Print Line • a 38-position line used by 
the PRINT statement. 

Program - a set of statements which tell 
the computer how to perform a complete 
task. 



Program Line - a line containing a single 
statement*. The maximum length of a 
program line is 248 characters* 

Pseudo-random number - a number 
produced by a definite set of calculations 
(algorithm) but which is sufficiently ran- 
dom to be considered as such for some 
particular purpose. A true random 
number is obtained entirely by chance 

Software - various programs which are 
executed by the computer, including pro- 
grams built into the computer. 
Cartridges' programs, and programs 
entered by the user. 

Statement - an instruction preceded by 
a line number in a program. In SEGA 
BASIC, more than one statement is 
allowed in a program line * . 

RAM - random access memory; the main 
memory where program statements and 
data" are temporarily stored during pro- 
gram execution*. New programs and 
data can be read in, accessed, and chang- 
ed in RAM. Data stored in RAM is eras- 
ed whenever the power is turned off of 
BASIC is exited. 



Reserved Word - in programming 
languages, a special work with a predefin- 
ed meaning. A reserved word Imust be 
spelled correctly, appear in the proper 
order in a statement* or command* , and 
cannot be used as a variable* name. 

ROM - read-only memory; certain in- 
structions for the computer are per- 
manently stored in ROM and can be ac 
cessed but cannot be changed. Turning 
the power off does not erase ROM 

Run Mode - when the computer is 
executing* a program, it is in Run Mode. 
Run Mode is terminated when program 
execution ends normally or abnormally. 
You can cause the computer to leave Run 
Mode by pressing BREAK during pro- 
gram execution (see Breakpoint*). 

Scientific Notation - a method of ex 
pressing very large or very small numbers 
by using a base number (mantissa*) times 
ten raised to some power (exponent*). 
To represent scientific notation in SEGA 
BASIC enter the sign, then the mantissa, 
the letter E. and the power of ten (preced- 
ed by a minus sign if negative). For ex- 
ample. 3,264; -2.47E -17. 

Scroll - to move the text on the screen 
so that additional information can be 
displayed. 

String - a series of letters, numbers and 
symbols treated as a unit. 

Subprogram - a predefined general 
purpose procedure accessible to the user 
through the statement in SEGA BASIC 
Subprograms extend the capability of 
BASIC and cannot be easily programm- 
ed in BASIC. 

Subroutine - a program segment which 
can be used more than once during the 
execution * of a program , such as a com- 
plex set of calculations of a print routine. 
In SEGA BASIC a subroutine is entered 
by a GOSUB statement and ends with a 
RETURN statement. 

Subscript - a numeric expression which 
specifies a particular item in an array*. In 
SEGA BASIC the subscript is written in 
parentheses immediately following the ar- 
ray name 

Underflow - the condition which occurs 
when the computer generates a numeric 
value greater than -IE- 100, less than 
IE- 100, and not zero. When an 
underflow occurs, the value is replaced by 
zero 



Variable - a name is given to a value 
which may vary during program execu- 
tion. You can think of a variable as a 
memory location where values can be 
replaced by new values during program 
execution. 
'See definition in Glossary 
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The Hard Word from 



SEGA'S new hard keyboard and new 
hard disk drive, make Sega even 
harder to beat. 

The very latest industry standard 3" 
diskettes store a massive 328K of in- 
formation each desk, and operate at 
speeds far in excess of their older 5 1 /z 
inch counterparts. 

Sega's super control station will also 
enable you to connect to many other 
attachments such as business printers 
electronic typewriters even telephone 
moderns, through it's two additional 
1/0 ports, for RS232C and parrallel 
interfaces. 
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Sega now boasts not on _ 
learn basic language, the most incredible graphic capabilities, a 
sensational range of cartridge and cassette games, superb educa- 
tion and applications software written by and for New Zealanders, 
but also a very sophisticated, fast, small business system, with the 
state of the art Sega control station. 

Feel the difference, see the difference, compare the difference, 
and you too can enjoy the difference of Sega superiority. 
Call at any Sega stockist for a demonstration or contact 
Grandstand Leisure at: Box 2353 AUCKLAND 
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